|
%I #7 Oct 13 2012 04:22:17
%S 3,5,127,1657,2999,44351,305717,1133131,370373,1357333,46006967,
%T 268119667,291057563,3429782399,10502593369,10926444847,87241771051,
%U 226751019863,1901687257829
%N Prime number following prime(A215237).
%C We use offset 0 because A215237 uses that offset.
%t t = Table[PrimePi[Prime[n + 1]/2] - PrimePi[Prime[n]/2], {n, 100000}]; t2 = Flatten[Table[Position[t, n, 1, 1], {n, 0, 8}]]; NextPrime[Prime[t2]]
%Y Cf. A215237, A215238.
%K nonn,hard
%O 0,1
%A _T. D. Noe_, Oct 11 2012
%E a(14)-a(18) from _Donovan Johnson_, Oct 13 2012
|
