A154501 Sum of any 3 consecutive numbers is prime and a(n+2)-(a(n+1)+a(n)) is prime, a(1)=3,a(2)=11.
3, 11, 17, 31, 41, 59, 97, 113, 127, 139
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
a=3;b=11;lst={a,b};Do[c=Prime[n];p1=c+a+b;p2=c-(a+b);If[PrimeQ[p1]&&PrimeQ[p2],AppendTo[lst,c];a=b;b=c],{n,5,9!}];lst
Extensions
NAME adapted to offset. - R. J. Mathar, Jun 19 2021
Comments