A154498 Sum of any 3 consecutive numbers is prime, a(1)=41,a(2)=43.

41, 43, 47, 59, 61, 71, 79, 83, 89, 97, 107, 109, 131, 139, 149, 151, 157, 179, 211, 223, 227, 233, 241, 269, 277, 281, 349, 353, 359, 379, 433, 467, 499, 521, 523, 557, 577, 587, 613, 631, 743, 757, 769, 821, 827, 829, 883, 947, 967, 983, 1013, 1087, 1091

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jan 10 2009

Keywords

• nonn

Comments

41+43+47=171,...

Crossrefs

Cf. A154484, A154485, A154486, A154487, A154488, A154493, A154494, A154495, A154496, A062391, A154497

Programs

Mathematica

a=41;b=43;lst={a,b};Do[c=Prime[n];p=a+b+c;If[PrimeQ[p],AppendTo[lst,c];a=b;b=c],{n,15,5!}];lst

Extensions

NAME adapted to offset. - R. J. Mathar, Jun 19 2021