|
%I #3 Mar 31 2012 12:38:26
%S 11,10,128,22,60,524,180,156,156,180,58,180,66,90,90,66,90,6320,714,
%T 1008,2190,2650,1722,198,1722,41510,810,594,1620,6570,3546,5736,1620,
%U 1404,810,594,1620,522,4428,810,1332,1620,1404,7356,594,810,3546,2214
%N First differences of A029971.
%C Differences between primes that are palindromic in base 3.
%e a(4) = 22 = A029971(5)-A029971(4).
%t f[n_]:=FromDigits[RealDigits[n,3][[1]]]==FromDigits[Reverse[RealDigits[n, 3][[1]]]]; a=2;lst={};Do[p=Prime[n];If[f[p],AppendTo[lst,p-a];a=p], {n,1,8!,1}];lst
%Y Cf. A164124, A029971, A016041
%K nonn,base
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Aug 10 2009
%E Definition simplified, initial 0 removed by _R. J. Mathar_, Nov 17 2009
|
