Patience, young “Padovan”Output the van der Corput sequenceGenerate n-ary numbersGenerate a Padovan SpiralGenerate an ASCII Padovan SpiralGolf a Custom Fibonacci SequenceImplement the Fibonacci sequence… Shifted to the rightDizzy integer enumerationModulus SummationFour Spiraling AxesIt's getting harder and harder to be composite these days

Can I make popcorn with any corn?

How is this relation reflexive?

Infinite past with a beginning?

The use of multiple foreign keys on same column in SQL Server

Are tax years 2016 & 2017 back taxes deductible for tax year 2018?

DOS, create pipe for stdin/stdout of command.com(or 4dos.com) in C or Batch?

XeLaTeX and pdfLaTeX ignore hyphenation

How to report a triplet of septets in NMR tabulation?

If Manufacturer spice model and Datasheet give different values which should I use?

If I cast Expeditious Retreat, can I Dash as a bonus action on the same turn?

Motorized valve interfering with button?

Pronouncing Dictionary.com's W.O.D "vade mecum" in English

What is the command to reset a PC without deleting any files

Can a German sentence have two subjects?

How to make payment on the internet without leaving a money trail?

Prevent a directory in /tmp from being deleted

Today is the Center

Why are only specific transaction types accepted into the mempool?

A newer friend of my brother's gave him a load of baseball cards that are supposedly extremely valuable. Is this a scam?

"You are your self first supporter", a more proper way to say it

How do we improve the relationship with a client software team that performs poorly and is becoming less collaborative?

What do you call a Matrix-like slowdown and camera movement effect?

Why is an old chain unsafe?

Email Account under attack (really) - anything I can do?



Patience, young “Padovan”


Output the van der Corput sequenceGenerate n-ary numbersGenerate a Padovan SpiralGenerate an ASCII Padovan SpiralGolf a Custom Fibonacci SequenceImplement the Fibonacci sequence… Shifted to the rightDizzy integer enumerationModulus SummationFour Spiraling AxesIt's getting harder and harder to be composite these days













3












$begingroup$


Everyone knows the Fibonacci sequence:

You take a square, attach an equal square to it, then repeatedly attach a square whose side length is equal to the largest side length of the resulting rectangle.

The result is a beautiful spiral of squares whose sequence of numbers is the Fibonacci sequence:





But, what if we didn't want to use squares?



If we use equilateral triangles—instead of squares—in a similar fashion, we get an equally beautiful spiral of triangles and a new sequence: the Padovan sequence, aka A000931:





Task:



Given a positive integer, $N$, output $a_N$, the $N$th term in the Padovan sequence OR the first $N$ terms.



Assume that the first three terms of the sequence are all $1$. Thus, the sequence will start as follows:
$$
1,1,1,2,2,3,...
$$



Input:



  • Any positive integer $Nge0$


  • Invalid input does not have to be taken into account


Output:



  • The $N$th term in the Padovan sequence OR the first $N$ terms of the Padovan sequence.


  • If the first $N$ terms are printed out, the output can be whatever is convenient (list/array, multi-line string, etc.)


  • Can be either $0$-indexed or $1$-indexed


Test Cases:

(0-indexed, $N$th term)



Input | Output
--------------
0 | 1
1 | 1
2 | 1
4 | 2
6 | 4
14 | 37
20 | 200
33 | 7739


(0-indexed, first $N$ terms)



Input | Output
--------------
1 | 1
3 | 1,1,1
4 | 1,1,1,2
7 | 1,1,1,2,2,3,4
10 | 1,1,1,2,2,3,4,5,7,9
12 | 1,1,1,2,2,3,4,5,7,9,12,16


Rules:



  • This is code-golf: the fewer bytes, the better!


  • Standard loopholes are forbidden.










share|improve this question











$endgroup$











  • $begingroup$
    Sandbox post can be found here.
    $endgroup$
    – Tau
    1 hour ago






  • 1




    $begingroup$
    14 (0-indexed) is shown as outputting 28 while I believe it should yield 37
    $endgroup$
    – Jonathan Allan
    45 mins ago










  • $begingroup$
    @JonathanAllan yes, you are correct. I fixed the last two test cases for $N$th term but not that one. The post has been edited.
    $endgroup$
    – Tau
    43 mins ago















3












$begingroup$


Everyone knows the Fibonacci sequence:

You take a square, attach an equal square to it, then repeatedly attach a square whose side length is equal to the largest side length of the resulting rectangle.

The result is a beautiful spiral of squares whose sequence of numbers is the Fibonacci sequence:





But, what if we didn't want to use squares?



If we use equilateral triangles—instead of squares—in a similar fashion, we get an equally beautiful spiral of triangles and a new sequence: the Padovan sequence, aka A000931:





Task:



Given a positive integer, $N$, output $a_N$, the $N$th term in the Padovan sequence OR the first $N$ terms.



Assume that the first three terms of the sequence are all $1$. Thus, the sequence will start as follows:
$$
1,1,1,2,2,3,...
$$



Input:



  • Any positive integer $Nge0$


  • Invalid input does not have to be taken into account


Output:



  • The $N$th term in the Padovan sequence OR the first $N$ terms of the Padovan sequence.


  • If the first $N$ terms are printed out, the output can be whatever is convenient (list/array, multi-line string, etc.)


  • Can be either $0$-indexed or $1$-indexed


Test Cases:

(0-indexed, $N$th term)



Input | Output
--------------
0 | 1
1 | 1
2 | 1
4 | 2
6 | 4
14 | 37
20 | 200
33 | 7739


(0-indexed, first $N$ terms)



Input | Output
--------------
1 | 1
3 | 1,1,1
4 | 1,1,1,2
7 | 1,1,1,2,2,3,4
10 | 1,1,1,2,2,3,4,5,7,9
12 | 1,1,1,2,2,3,4,5,7,9,12,16


Rules:



  • This is code-golf: the fewer bytes, the better!


  • Standard loopholes are forbidden.










share|improve this question











$endgroup$











  • $begingroup$
    Sandbox post can be found here.
    $endgroup$
    – Tau
    1 hour ago






  • 1




    $begingroup$
    14 (0-indexed) is shown as outputting 28 while I believe it should yield 37
    $endgroup$
    – Jonathan Allan
    45 mins ago










  • $begingroup$
    @JonathanAllan yes, you are correct. I fixed the last two test cases for $N$th term but not that one. The post has been edited.
    $endgroup$
    – Tau
    43 mins ago













3












3








3





$begingroup$


Everyone knows the Fibonacci sequence:

You take a square, attach an equal square to it, then repeatedly attach a square whose side length is equal to the largest side length of the resulting rectangle.

The result is a beautiful spiral of squares whose sequence of numbers is the Fibonacci sequence:





But, what if we didn't want to use squares?



If we use equilateral triangles—instead of squares—in a similar fashion, we get an equally beautiful spiral of triangles and a new sequence: the Padovan sequence, aka A000931:





Task:



Given a positive integer, $N$, output $a_N$, the $N$th term in the Padovan sequence OR the first $N$ terms.



Assume that the first three terms of the sequence are all $1$. Thus, the sequence will start as follows:
$$
1,1,1,2,2,3,...
$$



Input:



  • Any positive integer $Nge0$


  • Invalid input does not have to be taken into account


Output:



  • The $N$th term in the Padovan sequence OR the first $N$ terms of the Padovan sequence.


  • If the first $N$ terms are printed out, the output can be whatever is convenient (list/array, multi-line string, etc.)


  • Can be either $0$-indexed or $1$-indexed


Test Cases:

(0-indexed, $N$th term)



Input | Output
--------------
0 | 1
1 | 1
2 | 1
4 | 2
6 | 4
14 | 37
20 | 200
33 | 7739


(0-indexed, first $N$ terms)



Input | Output
--------------
1 | 1
3 | 1,1,1
4 | 1,1,1,2
7 | 1,1,1,2,2,3,4
10 | 1,1,1,2,2,3,4,5,7,9
12 | 1,1,1,2,2,3,4,5,7,9,12,16


Rules:



  • This is code-golf: the fewer bytes, the better!


  • Standard loopholes are forbidden.










share|improve this question











$endgroup$




Everyone knows the Fibonacci sequence:

You take a square, attach an equal square to it, then repeatedly attach a square whose side length is equal to the largest side length of the resulting rectangle.

The result is a beautiful spiral of squares whose sequence of numbers is the Fibonacci sequence:





But, what if we didn't want to use squares?



If we use equilateral triangles—instead of squares—in a similar fashion, we get an equally beautiful spiral of triangles and a new sequence: the Padovan sequence, aka A000931:





Task:



Given a positive integer, $N$, output $a_N$, the $N$th term in the Padovan sequence OR the first $N$ terms.



Assume that the first three terms of the sequence are all $1$. Thus, the sequence will start as follows:
$$
1,1,1,2,2,3,...
$$



Input:



  • Any positive integer $Nge0$


  • Invalid input does not have to be taken into account


Output:



  • The $N$th term in the Padovan sequence OR the first $N$ terms of the Padovan sequence.


  • If the first $N$ terms are printed out, the output can be whatever is convenient (list/array, multi-line string, etc.)


  • Can be either $0$-indexed or $1$-indexed


Test Cases:

(0-indexed, $N$th term)



Input | Output
--------------
0 | 1
1 | 1
2 | 1
4 | 2
6 | 4
14 | 37
20 | 200
33 | 7739


(0-indexed, first $N$ terms)



Input | Output
--------------
1 | 1
3 | 1,1,1
4 | 1,1,1,2
7 | 1,1,1,2,2,3,4
10 | 1,1,1,2,2,3,4,5,7,9
12 | 1,1,1,2,2,3,4,5,7,9,12,16


Rules:



  • This is code-golf: the fewer bytes, the better!


  • Standard loopholes are forbidden.







code-golf number sequence






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 42 mins ago







Tau

















asked 1 hour ago









TauTau

786313




786313











  • $begingroup$
    Sandbox post can be found here.
    $endgroup$
    – Tau
    1 hour ago






  • 1




    $begingroup$
    14 (0-indexed) is shown as outputting 28 while I believe it should yield 37
    $endgroup$
    – Jonathan Allan
    45 mins ago










  • $begingroup$
    @JonathanAllan yes, you are correct. I fixed the last two test cases for $N$th term but not that one. The post has been edited.
    $endgroup$
    – Tau
    43 mins ago
















  • $begingroup$
    Sandbox post can be found here.
    $endgroup$
    – Tau
    1 hour ago






  • 1




    $begingroup$
    14 (0-indexed) is shown as outputting 28 while I believe it should yield 37
    $endgroup$
    – Jonathan Allan
    45 mins ago










  • $begingroup$
    @JonathanAllan yes, you are correct. I fixed the last two test cases for $N$th term but not that one. The post has been edited.
    $endgroup$
    – Tau
    43 mins ago















$begingroup$
Sandbox post can be found here.
$endgroup$
– Tau
1 hour ago




$begingroup$
Sandbox post can be found here.
$endgroup$
– Tau
1 hour ago




1




1




$begingroup$
14 (0-indexed) is shown as outputting 28 while I believe it should yield 37
$endgroup$
– Jonathan Allan
45 mins ago




$begingroup$
14 (0-indexed) is shown as outputting 28 while I believe it should yield 37
$endgroup$
– Jonathan Allan
45 mins ago












$begingroup$
@JonathanAllan yes, you are correct. I fixed the last two test cases for $N$th term but not that one. The post has been edited.
$endgroup$
– Tau
43 mins ago




$begingroup$
@JonathanAllan yes, you are correct. I fixed the last two test cases for $N$th term but not that one. The post has been edited.
$endgroup$
– Tau
43 mins ago










12 Answers
12






active

oldest

votes


















4












$begingroup$


Python 2, 30 bytes





f=lambda n:n<3or f(n-2)+f(n-3)


Try it online!



Returns the n'th term zero indexed. Outputs True for 1.






share|improve this answer











$endgroup$




















    3












    $begingroup$


    Oasis, 5 bytes



    nth term 0-indexed



    cd+1V


    Try it online!



    Explanation



     1V # a(0) = 1
    # a(1) = 1
    # a(2) = 1
    # a(n) =
    c # a(n-2)
    + # +
    d # a(n-3)





    share|improve this answer









    $endgroup$




















      2












      $begingroup$


      Wolfram Language (Mathematica), 33 bytes



      a@0=a@1=a@2=1;a@n_:=a[n-2]+a[n-3] 


      1-indexed, returns the nth term



      Try it online!






      share|improve this answer









      $endgroup$




















        2












        $begingroup$


        Python 2, 56 48 bytes





        f=lambda n,a=1,b=1,c=1:n>2and f(n-1,b,c,a+b)or c


        Try it online!



        Returns nth value, 0-indexed.






        share|improve this answer









        $endgroup$




















          2












          $begingroup$


          J, 26 bytes



          0.5<.@+1.04535%~1.32472^<:


          Try it online!



          Uses the closed form formula.






          share|improve this answer











          $endgroup$




















            2












            $begingroup$


            Jelly, 11 bytes



            5B+Ɲ2ị;Ʋ⁸¡Ḣ


            Try it online!



            0-indexed.






            share|improve this answer











            $endgroup$












            • $begingroup$
              Can you specify whether this answer is 0-indexed or 1-indexed?
              $endgroup$
              – Tau
              37 mins ago










            • $begingroup$
              @Tau It's 0-indexed. I've edited it in.
              $endgroup$
              – Erik the Outgolfer
              36 mins ago



















            2












            $begingroup$


            Jelly, 10 bytes



            ‘HŻcḤạ¥¥‘S


            A monadic Link accepting n (1-indexed) which yields P(n).



            Try it online!






            share|improve this answer









            $endgroup$




















              2












              $begingroup$


              Haskell, 26 bytes





              (l!!)
              l=1:1:1:2:scanl(+)2l


              Try it online! Outputs the n'th term zero-indexed.



              I thought that the "obvious" recursive solution below would be unbeatable, but then I found this. It's similar to the classic golfy expression l=1:scanl(+)1l for the infinite Fibonacci list, but here the difference between adjacent elements is the term 4 positions back. We can more directly write l=1:1:zipWith(+)l(0:l), but that's longer.



              If this challenge allowed infinite list output, we could cut the first line and have 20 bytes.



              27 bytes





              f n|n<3=1|1>0=f(n-2)+f(n-3)


              Try it online!





              share









              $endgroup$




















                1












                $begingroup$


                C# (Visual C# Interactive Compiler), 34 bytes





                int f(int g)=>g<3?1:f(g-2)+f(g-3);


                Try it online!






                share|improve this answer









                $endgroup$




















                  1












                  $begingroup$

                  JavaScript (ES6), 23 bytes



                  Implements the recursive definition of A000931. Returns the $N$th term, 0-indexed.





                  f=n=>n<3||f(n-2)+f(n-3)


                  Try it online!






                  share|improve this answer











                  $endgroup$




















                    1












                    $begingroup$


                    Japt -N, 12 bytes



                    <3ªßUµ2 +ß´U


                    Try it






                    share|improve this answer









                    $endgroup$




















                      1












                      $begingroup$


                      Retina, 47 42 bytes



                      K`0¶1¶0
                      "$+"+`.+¶(.+)¶.+$
                      $&¶$.(*_$1*
                      6,G`


                      Try it online! Outputs the first n terms on separate lines. Explanation:



                      K`0¶1¶0


                      Replace the input with the terms for -2, -1 and 0.



                      "$+"+`.+¶(.+)¶.+$
                      $&¶$.(*_$1*


                      Generate the next n terms using the recurrence relation. *_ here is short for $&*_ which converts the (first) number in the match to unary, while $1* is short for $1*_ which converts the middle number to unary. The $.( returns the decimal sum of its unary arguments, i.e. the sum of the first and middle numbers.



                      6,G`


                      Discard the first six characters, i.e. the first three lines.






                      share|improve this answer











                      $endgroup$













                        Your Answer





                        StackExchange.ifUsing("editor", function ()
                        return StackExchange.using("mathjaxEditing", function ()
                        StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
                        StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["\$", "\$"]]);
                        );
                        );
                        , "mathjax-editing");

                        StackExchange.ifUsing("editor", function ()
                        StackExchange.using("externalEditor", function ()
                        StackExchange.using("snippets", function ()
                        StackExchange.snippets.init();
                        );
                        );
                        , "code-snippets");

                        StackExchange.ready(function()
                        var channelOptions =
                        tags: "".split(" "),
                        id: "200"
                        ;
                        initTagRenderer("".split(" "), "".split(" "), channelOptions);

                        StackExchange.using("externalEditor", function()
                        // Have to fire editor after snippets, if snippets enabled
                        if (StackExchange.settings.snippets.snippetsEnabled)
                        StackExchange.using("snippets", function()
                        createEditor();
                        );

                        else
                        createEditor();

                        );

                        function createEditor()
                        StackExchange.prepareEditor(
                        heartbeatType: 'answer',
                        autoActivateHeartbeat: false,
                        convertImagesToLinks: false,
                        noModals: true,
                        showLowRepImageUploadWarning: true,
                        reputationToPostImages: null,
                        bindNavPrevention: true,
                        postfix: "",
                        imageUploader:
                        brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
                        contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
                        allowUrls: true
                        ,
                        onDemand: true,
                        discardSelector: ".discard-answer"
                        ,immediatelyShowMarkdownHelp:true
                        );



                        );













                        draft saved

                        draft discarded


















                        StackExchange.ready(
                        function ()
                        StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodegolf.stackexchange.com%2fquestions%2f182797%2fpatience-young-padovan%23new-answer', 'question_page');

                        );

                        Post as a guest















                        Required, but never shown

























                        12 Answers
                        12






                        active

                        oldest

                        votes








                        12 Answers
                        12






                        active

                        oldest

                        votes









                        active

                        oldest

                        votes






                        active

                        oldest

                        votes









                        4












                        $begingroup$


                        Python 2, 30 bytes





                        f=lambda n:n<3or f(n-2)+f(n-3)


                        Try it online!



                        Returns the n'th term zero indexed. Outputs True for 1.






                        share|improve this answer











                        $endgroup$

















                          4












                          $begingroup$


                          Python 2, 30 bytes





                          f=lambda n:n<3or f(n-2)+f(n-3)


                          Try it online!



                          Returns the n'th term zero indexed. Outputs True for 1.






                          share|improve this answer











                          $endgroup$















                            4












                            4








                            4





                            $begingroup$


                            Python 2, 30 bytes





                            f=lambda n:n<3or f(n-2)+f(n-3)


                            Try it online!



                            Returns the n'th term zero indexed. Outputs True for 1.






                            share|improve this answer











                            $endgroup$




                            Python 2, 30 bytes





                            f=lambda n:n<3or f(n-2)+f(n-3)


                            Try it online!



                            Returns the n'th term zero indexed. Outputs True for 1.







                            share|improve this answer














                            share|improve this answer



                            share|improve this answer








                            edited 36 mins ago

























                            answered 51 mins ago









                            xnorxnor

                            93.3k18190448




                            93.3k18190448





















                                3












                                $begingroup$


                                Oasis, 5 bytes



                                nth term 0-indexed



                                cd+1V


                                Try it online!



                                Explanation



                                 1V # a(0) = 1
                                # a(1) = 1
                                # a(2) = 1
                                # a(n) =
                                c # a(n-2)
                                + # +
                                d # a(n-3)





                                share|improve this answer









                                $endgroup$

















                                  3












                                  $begingroup$


                                  Oasis, 5 bytes



                                  nth term 0-indexed



                                  cd+1V


                                  Try it online!



                                  Explanation



                                   1V # a(0) = 1
                                  # a(1) = 1
                                  # a(2) = 1
                                  # a(n) =
                                  c # a(n-2)
                                  + # +
                                  d # a(n-3)





                                  share|improve this answer









                                  $endgroup$















                                    3












                                    3








                                    3





                                    $begingroup$


                                    Oasis, 5 bytes



                                    nth term 0-indexed



                                    cd+1V


                                    Try it online!



                                    Explanation



                                     1V # a(0) = 1
                                    # a(1) = 1
                                    # a(2) = 1
                                    # a(n) =
                                    c # a(n-2)
                                    + # +
                                    d # a(n-3)





                                    share|improve this answer









                                    $endgroup$




                                    Oasis, 5 bytes



                                    nth term 0-indexed



                                    cd+1V


                                    Try it online!



                                    Explanation



                                     1V # a(0) = 1
                                    # a(1) = 1
                                    # a(2) = 1
                                    # a(n) =
                                    c # a(n-2)
                                    + # +
                                    d # a(n-3)






                                    share|improve this answer












                                    share|improve this answer



                                    share|improve this answer










                                    answered 1 hour ago









                                    EmignaEmigna

                                    47.4k433144




                                    47.4k433144





















                                        2












                                        $begingroup$


                                        Wolfram Language (Mathematica), 33 bytes



                                        a@0=a@1=a@2=1;a@n_:=a[n-2]+a[n-3] 


                                        1-indexed, returns the nth term



                                        Try it online!






                                        share|improve this answer









                                        $endgroup$

















                                          2












                                          $begingroup$


                                          Wolfram Language (Mathematica), 33 bytes



                                          a@0=a@1=a@2=1;a@n_:=a[n-2]+a[n-3] 


                                          1-indexed, returns the nth term



                                          Try it online!






                                          share|improve this answer









                                          $endgroup$















                                            2












                                            2








                                            2





                                            $begingroup$


                                            Wolfram Language (Mathematica), 33 bytes



                                            a@0=a@1=a@2=1;a@n_:=a[n-2]+a[n-3] 


                                            1-indexed, returns the nth term



                                            Try it online!






                                            share|improve this answer









                                            $endgroup$




                                            Wolfram Language (Mathematica), 33 bytes



                                            a@0=a@1=a@2=1;a@n_:=a[n-2]+a[n-3] 


                                            1-indexed, returns the nth term



                                            Try it online!







                                            share|improve this answer












                                            share|improve this answer



                                            share|improve this answer










                                            answered 1 hour ago









                                            J42161217J42161217

                                            13.8k21253




                                            13.8k21253





















                                                2












                                                $begingroup$


                                                Python 2, 56 48 bytes





                                                f=lambda n,a=1,b=1,c=1:n>2and f(n-1,b,c,a+b)or c


                                                Try it online!



                                                Returns nth value, 0-indexed.






                                                share|improve this answer









                                                $endgroup$

















                                                  2












                                                  $begingroup$


                                                  Python 2, 56 48 bytes





                                                  f=lambda n,a=1,b=1,c=1:n>2and f(n-1,b,c,a+b)or c


                                                  Try it online!



                                                  Returns nth value, 0-indexed.






                                                  share|improve this answer









                                                  $endgroup$















                                                    2












                                                    2








                                                    2





                                                    $begingroup$


                                                    Python 2, 56 48 bytes





                                                    f=lambda n,a=1,b=1,c=1:n>2and f(n-1,b,c,a+b)or c


                                                    Try it online!



                                                    Returns nth value, 0-indexed.






                                                    share|improve this answer









                                                    $endgroup$




                                                    Python 2, 56 48 bytes





                                                    f=lambda n,a=1,b=1,c=1:n>2and f(n-1,b,c,a+b)or c


                                                    Try it online!



                                                    Returns nth value, 0-indexed.







                                                    share|improve this answer












                                                    share|improve this answer



                                                    share|improve this answer










                                                    answered 54 mins ago









                                                    Chas BrownChas Brown

                                                    5,2091523




                                                    5,2091523





















                                                        2












                                                        $begingroup$


                                                        J, 26 bytes



                                                        0.5<.@+1.04535%~1.32472^<:


                                                        Try it online!



                                                        Uses the closed form formula.






                                                        share|improve this answer











                                                        $endgroup$

















                                                          2












                                                          $begingroup$


                                                          J, 26 bytes



                                                          0.5<.@+1.04535%~1.32472^<:


                                                          Try it online!



                                                          Uses the closed form formula.






                                                          share|improve this answer











                                                          $endgroup$















                                                            2












                                                            2








                                                            2





                                                            $begingroup$


                                                            J, 26 bytes



                                                            0.5<.@+1.04535%~1.32472^<:


                                                            Try it online!



                                                            Uses the closed form formula.






                                                            share|improve this answer











                                                            $endgroup$




                                                            J, 26 bytes



                                                            0.5<.@+1.04535%~1.32472^<:


                                                            Try it online!



                                                            Uses the closed form formula.







                                                            share|improve this answer














                                                            share|improve this answer



                                                            share|improve this answer








                                                            edited 45 mins ago

























                                                            answered 55 mins ago









                                                            JonahJonah

                                                            2,5911017




                                                            2,5911017





















                                                                2












                                                                $begingroup$


                                                                Jelly, 11 bytes



                                                                5B+Ɲ2ị;Ʋ⁸¡Ḣ


                                                                Try it online!



                                                                0-indexed.






                                                                share|improve this answer











                                                                $endgroup$












                                                                • $begingroup$
                                                                  Can you specify whether this answer is 0-indexed or 1-indexed?
                                                                  $endgroup$
                                                                  – Tau
                                                                  37 mins ago










                                                                • $begingroup$
                                                                  @Tau It's 0-indexed. I've edited it in.
                                                                  $endgroup$
                                                                  – Erik the Outgolfer
                                                                  36 mins ago
















                                                                2












                                                                $begingroup$


                                                                Jelly, 11 bytes



                                                                5B+Ɲ2ị;Ʋ⁸¡Ḣ


                                                                Try it online!



                                                                0-indexed.






                                                                share|improve this answer











                                                                $endgroup$












                                                                • $begingroup$
                                                                  Can you specify whether this answer is 0-indexed or 1-indexed?
                                                                  $endgroup$
                                                                  – Tau
                                                                  37 mins ago










                                                                • $begingroup$
                                                                  @Tau It's 0-indexed. I've edited it in.
                                                                  $endgroup$
                                                                  – Erik the Outgolfer
                                                                  36 mins ago














                                                                2












                                                                2








                                                                2





                                                                $begingroup$


                                                                Jelly, 11 bytes



                                                                5B+Ɲ2ị;Ʋ⁸¡Ḣ


                                                                Try it online!



                                                                0-indexed.






                                                                share|improve this answer











                                                                $endgroup$




                                                                Jelly, 11 bytes



                                                                5B+Ɲ2ị;Ʋ⁸¡Ḣ


                                                                Try it online!



                                                                0-indexed.







                                                                share|improve this answer














                                                                share|improve this answer



                                                                share|improve this answer








                                                                edited 36 mins ago

























                                                                answered 40 mins ago









                                                                Erik the OutgolferErik the Outgolfer

                                                                33k429106




                                                                33k429106











                                                                • $begingroup$
                                                                  Can you specify whether this answer is 0-indexed or 1-indexed?
                                                                  $endgroup$
                                                                  – Tau
                                                                  37 mins ago










                                                                • $begingroup$
                                                                  @Tau It's 0-indexed. I've edited it in.
                                                                  $endgroup$
                                                                  – Erik the Outgolfer
                                                                  36 mins ago

















                                                                • $begingroup$
                                                                  Can you specify whether this answer is 0-indexed or 1-indexed?
                                                                  $endgroup$
                                                                  – Tau
                                                                  37 mins ago










                                                                • $begingroup$
                                                                  @Tau It's 0-indexed. I've edited it in.
                                                                  $endgroup$
                                                                  – Erik the Outgolfer
                                                                  36 mins ago
















                                                                $begingroup$
                                                                Can you specify whether this answer is 0-indexed or 1-indexed?
                                                                $endgroup$
                                                                – Tau
                                                                37 mins ago




                                                                $begingroup$
                                                                Can you specify whether this answer is 0-indexed or 1-indexed?
                                                                $endgroup$
                                                                – Tau
                                                                37 mins ago












                                                                $begingroup$
                                                                @Tau It's 0-indexed. I've edited it in.
                                                                $endgroup$
                                                                – Erik the Outgolfer
                                                                36 mins ago





                                                                $begingroup$
                                                                @Tau It's 0-indexed. I've edited it in.
                                                                $endgroup$
                                                                – Erik the Outgolfer
                                                                36 mins ago












                                                                2












                                                                $begingroup$


                                                                Jelly, 10 bytes



                                                                ‘HŻcḤạ¥¥‘S


                                                                A monadic Link accepting n (1-indexed) which yields P(n).



                                                                Try it online!






                                                                share|improve this answer









                                                                $endgroup$

















                                                                  2












                                                                  $begingroup$


                                                                  Jelly, 10 bytes



                                                                  ‘HŻcḤạ¥¥‘S


                                                                  A monadic Link accepting n (1-indexed) which yields P(n).



                                                                  Try it online!






                                                                  share|improve this answer









                                                                  $endgroup$















                                                                    2












                                                                    2








                                                                    2





                                                                    $begingroup$


                                                                    Jelly, 10 bytes



                                                                    ‘HŻcḤạ¥¥‘S


                                                                    A monadic Link accepting n (1-indexed) which yields P(n).



                                                                    Try it online!






                                                                    share|improve this answer









                                                                    $endgroup$




                                                                    Jelly, 10 bytes



                                                                    ‘HŻcḤạ¥¥‘S


                                                                    A monadic Link accepting n (1-indexed) which yields P(n).



                                                                    Try it online!







                                                                    share|improve this answer












                                                                    share|improve this answer



                                                                    share|improve this answer










                                                                    answered 34 mins ago









                                                                    Jonathan AllanJonathan Allan

                                                                    53.7k535173




                                                                    53.7k535173





















                                                                        2












                                                                        $begingroup$


                                                                        Haskell, 26 bytes





                                                                        (l!!)
                                                                        l=1:1:1:2:scanl(+)2l


                                                                        Try it online! Outputs the n'th term zero-indexed.



                                                                        I thought that the "obvious" recursive solution below would be unbeatable, but then I found this. It's similar to the classic golfy expression l=1:scanl(+)1l for the infinite Fibonacci list, but here the difference between adjacent elements is the term 4 positions back. We can more directly write l=1:1:zipWith(+)l(0:l), but that's longer.



                                                                        If this challenge allowed infinite list output, we could cut the first line and have 20 bytes.



                                                                        27 bytes





                                                                        f n|n<3=1|1>0=f(n-2)+f(n-3)


                                                                        Try it online!





                                                                        share









                                                                        $endgroup$

















                                                                          2












                                                                          $begingroup$


                                                                          Haskell, 26 bytes





                                                                          (l!!)
                                                                          l=1:1:1:2:scanl(+)2l


                                                                          Try it online! Outputs the n'th term zero-indexed.



                                                                          I thought that the "obvious" recursive solution below would be unbeatable, but then I found this. It's similar to the classic golfy expression l=1:scanl(+)1l for the infinite Fibonacci list, but here the difference between adjacent elements is the term 4 positions back. We can more directly write l=1:1:zipWith(+)l(0:l), but that's longer.



                                                                          If this challenge allowed infinite list output, we could cut the first line and have 20 bytes.



                                                                          27 bytes





                                                                          f n|n<3=1|1>0=f(n-2)+f(n-3)


                                                                          Try it online!





                                                                          share









                                                                          $endgroup$















                                                                            2












                                                                            2








                                                                            2





                                                                            $begingroup$


                                                                            Haskell, 26 bytes





                                                                            (l!!)
                                                                            l=1:1:1:2:scanl(+)2l


                                                                            Try it online! Outputs the n'th term zero-indexed.



                                                                            I thought that the "obvious" recursive solution below would be unbeatable, but then I found this. It's similar to the classic golfy expression l=1:scanl(+)1l for the infinite Fibonacci list, but here the difference between adjacent elements is the term 4 positions back. We can more directly write l=1:1:zipWith(+)l(0:l), but that's longer.



                                                                            If this challenge allowed infinite list output, we could cut the first line and have 20 bytes.



                                                                            27 bytes





                                                                            f n|n<3=1|1>0=f(n-2)+f(n-3)


                                                                            Try it online!





                                                                            share









                                                                            $endgroup$




                                                                            Haskell, 26 bytes





                                                                            (l!!)
                                                                            l=1:1:1:2:scanl(+)2l


                                                                            Try it online! Outputs the n'th term zero-indexed.



                                                                            I thought that the "obvious" recursive solution below would be unbeatable, but then I found this. It's similar to the classic golfy expression l=1:scanl(+)1l for the infinite Fibonacci list, but here the difference between adjacent elements is the term 4 positions back. We can more directly write l=1:1:zipWith(+)l(0:l), but that's longer.



                                                                            If this challenge allowed infinite list output, we could cut the first line and have 20 bytes.



                                                                            27 bytes





                                                                            f n|n<3=1|1>0=f(n-2)+f(n-3)


                                                                            Try it online!






                                                                            share











                                                                            share


                                                                            share










                                                                            answered 2 mins ago









                                                                            xnorxnor

                                                                            93.3k18190448




                                                                            93.3k18190448





















                                                                                1












                                                                                $begingroup$


                                                                                C# (Visual C# Interactive Compiler), 34 bytes





                                                                                int f(int g)=>g<3?1:f(g-2)+f(g-3);


                                                                                Try it online!






                                                                                share|improve this answer









                                                                                $endgroup$

















                                                                                  1












                                                                                  $begingroup$


                                                                                  C# (Visual C# Interactive Compiler), 34 bytes





                                                                                  int f(int g)=>g<3?1:f(g-2)+f(g-3);


                                                                                  Try it online!






                                                                                  share|improve this answer









                                                                                  $endgroup$















                                                                                    1












                                                                                    1








                                                                                    1





                                                                                    $begingroup$


                                                                                    C# (Visual C# Interactive Compiler), 34 bytes





                                                                                    int f(int g)=>g<3?1:f(g-2)+f(g-3);


                                                                                    Try it online!






                                                                                    share|improve this answer









                                                                                    $endgroup$




                                                                                    C# (Visual C# Interactive Compiler), 34 bytes





                                                                                    int f(int g)=>g<3?1:f(g-2)+f(g-3);


                                                                                    Try it online!







                                                                                    share|improve this answer












                                                                                    share|improve this answer



                                                                                    share|improve this answer










                                                                                    answered 21 mins ago









                                                                                    Embodiment of IgnoranceEmbodiment of Ignorance

                                                                                    2,808127




                                                                                    2,808127





















                                                                                        1












                                                                                        $begingroup$

                                                                                        JavaScript (ES6), 23 bytes



                                                                                        Implements the recursive definition of A000931. Returns the $N$th term, 0-indexed.





                                                                                        f=n=>n<3||f(n-2)+f(n-3)


                                                                                        Try it online!






                                                                                        share|improve this answer











                                                                                        $endgroup$

















                                                                                          1












                                                                                          $begingroup$

                                                                                          JavaScript (ES6), 23 bytes



                                                                                          Implements the recursive definition of A000931. Returns the $N$th term, 0-indexed.





                                                                                          f=n=>n<3||f(n-2)+f(n-3)


                                                                                          Try it online!






                                                                                          share|improve this answer











                                                                                          $endgroup$















                                                                                            1












                                                                                            1








                                                                                            1





                                                                                            $begingroup$

                                                                                            JavaScript (ES6), 23 bytes



                                                                                            Implements the recursive definition of A000931. Returns the $N$th term, 0-indexed.





                                                                                            f=n=>n<3||f(n-2)+f(n-3)


                                                                                            Try it online!






                                                                                            share|improve this answer











                                                                                            $endgroup$



                                                                                            JavaScript (ES6), 23 bytes



                                                                                            Implements the recursive definition of A000931. Returns the $N$th term, 0-indexed.





                                                                                            f=n=>n<3||f(n-2)+f(n-3)


                                                                                            Try it online!







                                                                                            share|improve this answer














                                                                                            share|improve this answer



                                                                                            share|improve this answer








                                                                                            edited 14 mins ago

























                                                                                            answered 20 mins ago









                                                                                            ArnauldArnauld

                                                                                            80.5k797333




                                                                                            80.5k797333





















                                                                                                1












                                                                                                $begingroup$


                                                                                                Japt -N, 12 bytes



                                                                                                <3ªßUµ2 +ß´U


                                                                                                Try it






                                                                                                share|improve this answer









                                                                                                $endgroup$

















                                                                                                  1












                                                                                                  $begingroup$


                                                                                                  Japt -N, 12 bytes



                                                                                                  <3ªßUµ2 +ß´U


                                                                                                  Try it






                                                                                                  share|improve this answer









                                                                                                  $endgroup$















                                                                                                    1












                                                                                                    1








                                                                                                    1





                                                                                                    $begingroup$


                                                                                                    Japt -N, 12 bytes



                                                                                                    <3ªßUµ2 +ß´U


                                                                                                    Try it






                                                                                                    share|improve this answer









                                                                                                    $endgroup$




                                                                                                    Japt -N, 12 bytes



                                                                                                    <3ªßUµ2 +ß´U


                                                                                                    Try it







                                                                                                    share|improve this answer












                                                                                                    share|improve this answer



                                                                                                    share|improve this answer










                                                                                                    answered 11 mins ago









                                                                                                    Embodiment of IgnoranceEmbodiment of Ignorance

                                                                                                    2,808127




                                                                                                    2,808127





















                                                                                                        1












                                                                                                        $begingroup$


                                                                                                        Retina, 47 42 bytes



                                                                                                        K`0¶1¶0
                                                                                                        "$+"+`.+¶(.+)¶.+$
                                                                                                        $&¶$.(*_$1*
                                                                                                        6,G`


                                                                                                        Try it online! Outputs the first n terms on separate lines. Explanation:



                                                                                                        K`0¶1¶0


                                                                                                        Replace the input with the terms for -2, -1 and 0.



                                                                                                        "$+"+`.+¶(.+)¶.+$
                                                                                                        $&¶$.(*_$1*


                                                                                                        Generate the next n terms using the recurrence relation. *_ here is short for $&*_ which converts the (first) number in the match to unary, while $1* is short for $1*_ which converts the middle number to unary. The $.( returns the decimal sum of its unary arguments, i.e. the sum of the first and middle numbers.



                                                                                                        6,G`


                                                                                                        Discard the first six characters, i.e. the first three lines.






                                                                                                        share|improve this answer











                                                                                                        $endgroup$

















                                                                                                          1












                                                                                                          $begingroup$


                                                                                                          Retina, 47 42 bytes



                                                                                                          K`0¶1¶0
                                                                                                          "$+"+`.+¶(.+)¶.+$
                                                                                                          $&¶$.(*_$1*
                                                                                                          6,G`


                                                                                                          Try it online! Outputs the first n terms on separate lines. Explanation:



                                                                                                          K`0¶1¶0


                                                                                                          Replace the input with the terms for -2, -1 and 0.



                                                                                                          "$+"+`.+¶(.+)¶.+$
                                                                                                          $&¶$.(*_$1*


                                                                                                          Generate the next n terms using the recurrence relation. *_ here is short for $&*_ which converts the (first) number in the match to unary, while $1* is short for $1*_ which converts the middle number to unary. The $.( returns the decimal sum of its unary arguments, i.e. the sum of the first and middle numbers.



                                                                                                          6,G`


                                                                                                          Discard the first six characters, i.e. the first three lines.






                                                                                                          share|improve this answer











                                                                                                          $endgroup$















                                                                                                            1












                                                                                                            1








                                                                                                            1





                                                                                                            $begingroup$


                                                                                                            Retina, 47 42 bytes



                                                                                                            K`0¶1¶0
                                                                                                            "$+"+`.+¶(.+)¶.+$
                                                                                                            $&¶$.(*_$1*
                                                                                                            6,G`


                                                                                                            Try it online! Outputs the first n terms on separate lines. Explanation:



                                                                                                            K`0¶1¶0


                                                                                                            Replace the input with the terms for -2, -1 and 0.



                                                                                                            "$+"+`.+¶(.+)¶.+$
                                                                                                            $&¶$.(*_$1*


                                                                                                            Generate the next n terms using the recurrence relation. *_ here is short for $&*_ which converts the (first) number in the match to unary, while $1* is short for $1*_ which converts the middle number to unary. The $.( returns the decimal sum of its unary arguments, i.e. the sum of the first and middle numbers.



                                                                                                            6,G`


                                                                                                            Discard the first six characters, i.e. the first three lines.






                                                                                                            share|improve this answer











                                                                                                            $endgroup$




                                                                                                            Retina, 47 42 bytes



                                                                                                            K`0¶1¶0
                                                                                                            "$+"+`.+¶(.+)¶.+$
                                                                                                            $&¶$.(*_$1*
                                                                                                            6,G`


                                                                                                            Try it online! Outputs the first n terms on separate lines. Explanation:



                                                                                                            K`0¶1¶0


                                                                                                            Replace the input with the terms for -2, -1 and 0.



                                                                                                            "$+"+`.+¶(.+)¶.+$
                                                                                                            $&¶$.(*_$1*


                                                                                                            Generate the next n terms using the recurrence relation. *_ here is short for $&*_ which converts the (first) number in the match to unary, while $1* is short for $1*_ which converts the middle number to unary. The $.( returns the decimal sum of its unary arguments, i.e. the sum of the first and middle numbers.



                                                                                                            6,G`


                                                                                                            Discard the first six characters, i.e. the first three lines.







                                                                                                            share|improve this answer














                                                                                                            share|improve this answer



                                                                                                            share|improve this answer








                                                                                                            edited 1 min ago

























                                                                                                            answered 11 mins ago









                                                                                                            NeilNeil

                                                                                                            82.6k745179




                                                                                                            82.6k745179



























                                                                                                                draft saved

                                                                                                                draft discarded
















































                                                                                                                If this is an answer to a challenge…



                                                                                                                • …Be sure to follow the challenge specification. However, please refrain from exploiting obvious loopholes. Answers abusing any of the standard loopholes are considered invalid. If you think a specification is unclear or underspecified, comment on the question instead.


                                                                                                                • …Try to optimize your score. For instance, answers to code-golf challenges should attempt to be as short as possible. You can always include a readable version of the code in addition to the competitive one.
                                                                                                                  Explanations of your answer make it more interesting to read and are very much encouraged.


                                                                                                                • …Include a short header which indicates the language(s) of your code and its score, as defined by the challenge.


                                                                                                                More generally…



                                                                                                                • …Please make sure to answer the question and provide sufficient detail.


                                                                                                                • …Avoid asking for help, clarification or responding to other answers (use comments instead).




                                                                                                                draft saved


                                                                                                                draft discarded














                                                                                                                StackExchange.ready(
                                                                                                                function ()
                                                                                                                StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodegolf.stackexchange.com%2fquestions%2f182797%2fpatience-young-padovan%23new-answer', 'question_page');

                                                                                                                );

                                                                                                                Post as a guest















                                                                                                                Required, but never shown





















































                                                                                                                Required, but never shown














                                                                                                                Required, but never shown












                                                                                                                Required, but never shown







                                                                                                                Required, but never shown

































                                                                                                                Required, but never shown














                                                                                                                Required, but never shown












                                                                                                                Required, but never shown







                                                                                                                Required, but never shown







                                                                                                                Popular posts from this blog

                                                                                                                Era Viking Índice Início da Era Viquingue | Cotidiano | Sociedade | Língua | Religião | A arte | As primeiras cidades | As viagens dos viquingues | Viquingues do Oeste e Leste | Fim da Era Viquingue | Fontes históricas | Referências Bibliografia | Ligações externas | Menu de navegação«Sverige då!»«Handel I vikingetid»«O que é Nórdico Antigo»Mito, magia e religião na volsunga saga Um olhar sobre a trajetória mítica do herói sigurd«Bonden var den verklige vikingen»«Vikingatiden»«Vikingatiden»«Vinland»«Guerreiras de Óðinn: As Valkyrjor na Mitologia Viking»1519-9053«Esculpindo símbolos e seres: A arte viking em pedras rúnicas»1679-9313Historia - Tema: VikingarnaAventura e Magia no Mundo das Sagas IslandesasEra Vikinge

                                                                                                                What's the metal clinking sound at the end of credits in Avengers: Endgame?What makes Thanos so strong in Avengers: Endgame?Who is the character that appears at the end of Endgame?What happens to Mjolnir (Thor's hammer) at the end of Endgame?The People's Ages in Avengers: EndgameWhat did Nebula do in Avengers: Endgame?Messing with time in the Avengers: Endgame climaxAvengers: Endgame timelineWhat are the time-travel rules in Avengers Endgame?Why use this song in Avengers: Endgame Opening Logo Sequence?Peggy's age in Avengers Endgame

                                                                                                                Are there legal definitions of ethnicities/races? The 2019 Stack Overflow Developer Survey Results Are In Announcing the arrival of Valued Associate #679: Cesar Manara Planned maintenance scheduled April 17/18, 2019 at 00:00UTC (8:00pm US/Eastern)Legal definitions in the United StatesAre there truly legal limits on US interest rates?Are gender identity and sexual orientation federally protected?Why is there an apparent legal bias against digital services?What limits are there to the powers of individual judges in the United States legal system?Are women only scholarships legal under Irish / EU law?Is the term “race” defined by Public Law enacted by Congress of the United StatesIs there a legal definition of race in the US?Neighbors are spying for landlord on Renters is it legal?Are Protected Classes Bi-directional?