|
%I #7 Feb 01 2023 05:08:41
%S 0,7,10,13,16,21,26,33,38,41,48,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
%N a(n+1)-+a(n)=prime, a(1)=0,a(2)=7.
%C Sum and difference of any of two consecutive numbers in current sequence are prime numbers : 10-7=3;10+7=17, 230-227=3;230+227=457, 233-230=3;233+230=463,...
%C Essentially the same as A090955. - _R. J. Mathar_, Jan 12 2009
%t a=0;b=7;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
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Jan 10 2009
%E NAME adapted to offset. - _R. J. Mathar_, Jun 19 2021
|
