A262565 A weaver's answer to the question "What comes next after 2,3,5?".

2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5, 3, 2, 2, 3, 5, 5

Offset

1,1

Comments

a(n+1) - a(n) = A186809(n). - Reinhard Zumkeller, Oct 19 2015

Links

Table of n, a(n) for n=1..100.

E. R. Berlekamp, A contribution to mathematical psychometrics, Unpublished Bell Labs Memorandum, Feb 08 1968 [Annotated scanned copy]

Index entries for linear recurrences with constant coefficients, signature (1,-1,1,-1,1).

Mathematica

t = Prime@ Range@ 3; Flatten@ Table[{t, Reverse@ t}, {16}] (* Michael De Vlieger, Oct 20 2015 *)
PadRight[{}, 120, {2, 3, 5, 5, 3, 2}] (* or *) LinearRecurrence[{1, -1, 1, -1, 1}, {2, 3, 5, 5, 3}, 120] (* Harvey P. Dale, Sep 19 2016 *)

Prog

(Haskell)
a262565 n = a262565_list !! (n-1)
a262565_list = cycle [2, 3, 5, 5, 3, 2] -- Reinhard Zumkeller, Oct 19 2015

Crossrefs

Cf. A262564, A186809.

Sequence in context: A019780 A227833 A133293 * A096289 A367848 A131295

Adjacent sequences: A262562 A262563 A262564 * A262566 A262567 A262568

Keyword

nonn

Author

N. J. A. Sloane, Oct 19 2015

Extensions

Typo in link fixed by Zak Seidov, Oct 20 2015

Status

approved