OFFSET
1,1
COMMENTS
Differences between primes that are palindromic in base 3.
MATHEMATICA
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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Joseph Stephan Orlovsky, Aug 10 2009
EXTENSIONS
Definition simplified, initial 0 removed by R. J. Mathar, Nov 17 2009
STATUS
approved