|
Search: id:A127963
|
|
| |
|
| 2, 3, 4, 6, 7, 9, 10, 12, 16, 22, 31, 40, 51, 64, 84, 96, 100, 157, 174, 351, 855
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
b = {}; Do[c = 1 + Sum[2^(2n - 1), {n, 1, x}]; If[PrimeQ[c], AppendTo[b, c]], {x, 0, 1000}]; a = {}; Do[AppendTo[a, FromDigits[IntegerDigits[b[[x]], 2]]], {x, 1, Length[b]}]; d = {}; Do[AppendTo[d, DigitCount[a[[x]], 10, 1]], {x, 1, Length[a]}]; d (*Artur Jasinski*)
|
|
CROSSREFS
|
Cf. A127962, A127961, A000979, A000978, A124400, A126614, A127955, A127956, A127957, A127958, A127936.
Sequence in context: A111333 A047701 A164528 this_sequence A031403 A088572 A071689
Adjacent sequences: A127960 A127961 A127962 this_sequence A127964 A127965 A127966
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Feb 09 2007
|
|
|
Search completed in 0.002 seconds
|
