The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #11 Aug 17 2024 17:58:23
%S 0,2,2,10,14,42,34,20,130,56,130,750,260,118,48,168,44,48,3010,224,76,
%T 368,312,112,230,616,780,152,160,272,9186,720,192,1144,176,192,1356,
%U 1384,128,192,720,448,1718,192,1240,624,320,96,588,864,720,792,544
%N First differences of A016041.
%C Differences between successive primes that are palindromic in base 2.
%C 3, 5, 7, 17, 31, 73, 107, 127, 257, 313, 443, 1193, 1453, 1571, 1619, 1787, 1831, 1879, ...
%t 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
%t Join[{0},Differences[Select[Prime[Range[5000]],IntegerDigits[#,2]== Reverse[ IntegerDigits[ #,2]]&]]] (* _Harvey P. Dale_, Aug 17 2024 *)
%Y Cf. A029971, A016041, A164125. - _Vladimir Joseph Stephan Orlovsky_, Aug 10 2009
%K nonn,less,base
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Aug 10 2009
%E Definition corrected by _Charles R Greathouse IV_, Oct 08 2009