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

Author

N. J. A. Sloane, Oct 19 2015

Keywords

• nonn

Comments

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

Links

• 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).

Crossrefs

Cf. A262564, A186809.

Programs

Haskell

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

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 *)

Extensions

Typo in link fixed by Zak Seidov, Oct 20 2015