login
A262565
A weaver's answer to the question "What comes next after 2,3,5?".
3
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
E. R. Berlekamp, A contribution to mathematical psychometrics, Unpublished Bell Labs Memorandum, Feb 08 1968 [Annotated scanned copy]
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
Sequence in context: A019780 A227833 A133293 * A096289 A367848 A131295
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 19 2015
EXTENSIONS
Typo in link fixed by Zak Seidov, Oct 20 2015
STATUS
approved