|
Search: id:A006995
|
|
|
| A006995 |
|
Numbers whose binary expansion is palindromic.
(Formerly M2403)
|
|
+0
42
|
|
| 0, 1, 3, 5, 7, 9, 15, 17, 21, 27, 31, 33, 45, 51, 63, 65, 73, 85, 93, 99, 107, 119, 127, 129, 153, 165, 189, 195, 219, 231, 255, 257, 273, 297, 313, 325, 341, 365, 381, 387, 403, 427, 443, 455, 471, 495, 511, 513, 561, 585, 633, 645, 693, 717, 765, 771, 819, 843
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=1..1000
Index entries for sequences related to binary expansion of n
|
|
MATHEMATICA
|
palQ[n_Integer, base_Integer] := Module[{idn=IntegerDigits[n, base]}, idn==Reverse[idn]]; then to generate any base b sequence: Select[Range[1000], palQ[ #, b]&]
|
|
PROGRAM
|
(PARI) for(n=1, 1000, l=length(binary(n)); b=binary(n); if(sum(i=1, l, abs(component(b, i)-component(b, l+1-i)))==0, print1(n, ", ")))
(PARI) for(i=0, 999, if(vecextract(t=binary(i), "-1..1")==t, print1(i", "))) - M. F. Hasler (Maximilian.Hasler(AT)gmail.com), Dec 17 2007
|
|
CROSSREFS
|
Palindromes in bases 2 through 10: A006995, A014190, A014192, A029952, A029953, A029954, A029803, A029955, A002113.
Sequence in context: A098758 A029608 A121820 this_sequence A064896 A076188 A073674
Adjacent sequences: A006992 A006993 A006994 this_sequence A006996 A006997 A006998
|
|
KEYWORD
|
base,easy,nonn,nice
|
|
AUTHOR
|
njas, Robert G. Wilson v (rgwv(AT)rgwv.com), Mira Bernstein, L. J. Upton
|
|
|
Search completed in 0.002 seconds
|
