|
%I #10 Mar 22 2023 18:43:31
%S 5,7,13,13,19,19,29,31,31,37,37,43,43,53,59,61,61,67,67,73,73,79,79,
%T 89,103,97,103,103,109,109,127,137,131,137,137,139,149,151,151,157,
%U 157,163,163,173,179,181,181,191,193,193,199,199,229,229,229,229,239,241,241
%N a(n) = A164121(n+1)*2 - A164121(n).
%C Each term is prime.
%H Robert Israel, <a href="/A164122/b164122.txt">Table of n, a(n) for n = 1..10000</a>
%p S:= NULL: x:= 1: count:= 1:
%p for y from x+2 by 2 do
%p if isprime(2*y-x) then
%p S:= S,2*y-x; x:= y; count:= count+1;
%p if count = 101 then break fi;
%p fi
%p od:
%p S; # _Robert Israel_, Mar 22 2023
%Y A164121
%K nonn
%O 1,1
%A _Leroy Quet_, Aug 10 2009
%E More terms from _R. J. Mathar_, Oct 24 2009
|
