A164124 First differences of A016041.

0, 2, 2, 10, 14, 42, 34, 20, 130, 56, 130, 750, 260, 118, 48, 168, 44, 48, 3010, 224, 76, 368, 312, 112, 230, 616, 780, 152, 160, 272, 9186, 720, 192, 1144, 176, 192, 1356, 1384, 128, 192, 720, 448, 1718, 192, 1240, 624, 320, 96, 588, 864, 720, 792, 544

Offset

1,2

Comments

Differences between successive primes that are palindromic in base 2.

3, 5, 7, 17, 31, 73, 107, 127, 257, 313, 443, 1193, 1453, 1571, 1619, 1787, 1831, 1879, ...

Links

Table of n, a(n) for n=1..53.

Mathematica

f[n_]:=FromDigits[RealDigits[n, 2][[1]]]==FromDigits[Reverse[RealDigits[n, 2][[1]]]]; a=3; lst={}; Do[p=Prime[n]; If[f[p], AppendTo[lst, p-a]; a=p], {n, 2, 8!, 1}]; lst
Join[{0}, Differences[Select[Prime[Range[5000]], IntegerDigits[#, 2]== Reverse[ IntegerDigits[ #, 2]]&]]] (* Harvey P. Dale, Aug 17 2024 *)

Crossrefs

Cf. A029971, A016041, A164125. - Vladimir Joseph Stephan Orlovsky, Aug 10 2009

Sequence in context: A132443 A048153 A015623 * A003609 A366131 A307538

Adjacent sequences: A164121 A164122 A164123 * A164125 A164126 A164127

Keyword

nonn,less,base

Author

Vladimir Joseph Stephan Orlovsky, Aug 10 2009

Extensions

Definition corrected by Charles R Greathouse IV, Oct 08 2009

Status

approved