|
%I #6 Feb 01 2023 05:06:59
%S 0,5,8,11,18,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)=0,a(2)=5.
%C Sum and difference of any of two consecutive numbers in current sequence are prime numbers : 8-5=3;8+5=13, 11-8=3;11+8=19, 18-11=7;18+11=29,...
%t a=0;b=5;lst={a,b};Do[If[PrimeQ[n-b]&&PrimeQ[n+b],AppendTo[lst,n];a=b;b=n],{n,b+1,7!}];lst
%Y Essentially the same as A154484 and A154485.
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Jan 10 2009
%E NAME adapted to offset. - _R. J. Mathar_, Jun 19 2021
|
