OFFSET
1,1
EXAMPLE
Sum of neighbor digits of 29 = 11 > 10 hence 29 is absent.
Sum of neighbor digits 3+7 of 137 is 10 hence 137 is absent.
MATHEMATICA
s={2, 3, 5, 7}; Do[p=Prime[n]; id=IntegerDigits[p]; rp=Rest[id]+Most[id];
If[Max[rp]<10, AppendTo[s, p]], {n, 5, 300}]; s
Select[Prime[Range[150]], Max[Total/@Partition[IntegerDigits[#], 2, 1]] <10&] (* Harvey P. Dale, Dec 04 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Jul 16 2010
STATUS
approved