|
|
A092539
|
|
Binary representation of a(n) equals first n+1 terms of A051023.
|
|
8
|
|
|
1, 3, 6, 13, 27, 55, 110, 220, 441, 883, 1766, 3532, 7064, 14129, 28258, 56517, 113035, 226070, 452140, 904281, 1808562, 3617124, 7234249, 14468499, 28936999, 57873998, 115747997, 231495994, 462991989, 925983979, 1851967959, 3703935918
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
a(n+1) = 2*a(n) + d, where d = 0/1 with no obvious rule. The sequence is a digit representation of the central column of cellular automaton Rule 30, A051023. Primes in the sequence, A092540.
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Rule 30.
|
|
FORMULA
|
|
|
EXAMPLE
|
a(6) = 55_10 = 110111_2
|
|
MATHEMATICA
|
a(n_) := FromDigits[Take[A051023, n], 2]
|
|
PROG
|
(Haskell)
a092539 n = a092539_list !! n
a092539_list = scanl1 (\v d -> 2 * v + d) $ map toInteger a051023_list
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|