|
%I #4 Jun 19 2021 12:51:18
%S 41,43,47,59,61,71,79,83,89,97,107,109,131,139,149,151,157,179,211,
%T 223,227,233,241,269,277,281,349,353,359,379,433,467,499,521,523,557,
%U 577,587,613,631,743,757,769,821,827,829,883,947,967,983,1013,1087,1091
%N Sum of any 3 consecutive numbers is prime, a(1)=41,a(2)=43.
%C 41+43+47=171,...
%t 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
%Y Cf. A154484, A154485, A154486, A154487, A154488, A154493, A154494, A154495, A154496, A062391, A154497
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 10 2009
%E NAME adapted to offset. - _R. J. Mathar_, Jun 19 2021
|
