|
%I #4 Jun 19 2021 12:54:44
%S 1,12,17,20,23,30,37,42,47,50,53,56,75,82,85,88,91,102,109,114,119,
%T 122,129,134,137,140,143,150,157,160,171,176,183,190,193,196,201,208,
%U 211,222,227,230,233,246,253,256,267,274,297,302,305,308,311,330,343,348
%N a(n+1)-+a(n)=prime, a(1)=1,a(2)=12.
%C Sum and difference of any of two consecutive numbers in current sequence are prime numbers : 230-227=3;230+227=457, 233-230=3;233+230=463,...
%t a=1;b=12;lst={a,b};Do[If[PrimeQ[n-b]&&PrimeQ[n+b],AppendTo[lst,n];a=b;b=n],{n,b+1,7!}];lst
%Y Cf. A154484, A154485, A154486, A154487
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Jan 10 2009
%E NAME adapted to offset. - _R. J. Mathar_, Jun 19 2021
|
