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

Author

Vladimir Joseph Stephan Orlovsky, Aug 10 2009

Keywords

• nonn
• less
• base

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, ...

Crossrefs

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

Programs

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 *)

Extensions

Definition corrected by Charles R Greathouse IV, Oct 08 2009