|
Search: id:A164126
|
|
| |
|
| 1, 2, 2, 2, 2, 6, 2, 4, 6, 4, 2, 12, 6, 12, 2, 8, 12, 8, 6, 8, 12, 8, 2, 24, 12, 24, 6, 24, 12, 24, 2, 16, 24, 16, 12, 16, 24, 16, 6, 16, 24, 16, 12, 16, 24, 16, 2, 48, 24, 48, 12, 48, 24, 48, 6, 48, 24, 48, 12, 48, 24, 48, 2, 32, 48, 32, 24, 32, 48, 32, 12, 32, 48, 32, 24, 32, 48, 32, 6
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
a(n) = A006995(n+1)-A006995(n).
|
|
MATHEMATICA
|
f[n_]:=FromDigits[RealDigits[n, 2][[1]]]==FromDigits[Reverse[RealDigits[n, 2][[1]]]]; a=1; lst={}; Do[If[f[n], AppendTo[lst, n-a]; a=n], {n, 1, 8!, 1}]; lst
|
|
CROSSREFS
|
Cf. A006995, A164124, A029971, A016041, A164125.
Sequence in context: A070877 A156717 A130754 this_sequence A163368 A151948 A080400
Adjacent sequences: A164123 A164124 A164125 this_sequence A164127 A164128 A164129
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 10 2009
|
|
EXTENSIONS
|
Changed a(1) to 1; added keyword:base - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 26 2009
|
|
|
Search completed in 0.002 seconds
|
