A175584 - OEIS

%I #8 Nov 21 2013 12:50:02

%S 2,3,5,7,11,13,17,23,31,41,43,53,61,71,101,103,107,109,113,127,131,

%T 151,163,181,211,223,227,233,241,251,263,271,307,311,313,317,331,353,

%U 401,409,421,431,433,443,503,509,521,523,541,601,607,613,617,631,701,709

%N Prime numbers p with property that sums of neighbor digits of p are all less than 10.

%e Sum of neighbor digits of 29 = 11 > 10 hence 29 is absent.

%e Sum of neighbor digits 3+7 of 137 is 10 hence 137 is absent.

%t s={2,3,5,7};Do[p=Prime[n];id=IntegerDigits[p];rp=Rest[id]+Most[id];

%t If[Max[rp]<10,AppendTo[s,p]],{n,5,300}];s

%t Select[Prime[Range[150]],Max[Total/@Partition[IntegerDigits[#],2,1]] <10&] (* _Harvey P. Dale_, Dec 04 2011 *)

%Y Cf. A175585 Sums of neighbor digits of n^2 are all less than 10.

%K base,nonn

%O 1,1

%A _Zak Seidov_, Jul 16 2010