|
| |
|
|
A164126
|
|
First differences of A006995.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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: A156717 A198889 A130754 * A163368 A151948 A080400
Adjacent sequences: A164123 A164124 A164125 * 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
|
| |
|
|
