|
Search: id:A127965
|
|
| |
|
| 2, 4, 6, 10, 12, 16, 18, 22, 30, 42, 60, 78, 100, 126, 166, 190, 198, 312, 346, 700, 1708
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Equals A127964(n) + A127963(n).
|
|
FORMULA
|
a(n) = 1+floor[ log_2(A000979(n)) ] = 1+ floor[log_2(2^A000978(n)+1) - A020857] = A000978(n)-1 . - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 01 2008
|
|
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, 0]+DigitCount[a[[x]], 10, 1]], {x, 1, Length[a]}]; d (*Artur Jasinski*)
|
|
CROSSREFS
|
Cf. A127962, A127963, A127964, A127961, A000979, A000978, A124400, A126614, A127955, A127956, A127957, A127958, A127936.
Sequence in context: A075728 A146886 A006093 this_sequence A117891 A072752 A036634
Adjacent sequences: A127962 A127963 A127964 this_sequence A127966 A127967 A127968
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Feb 09 2007
|
|
|
Search completed in 0.002 seconds
|
