|
%I #29 Apr 13 2024 19:29:00
%S 2,5,11,13,19,23,31,37,41,43,53,59,67,71,73,79,89,97,103,107,109,113,
%T 131,137,139,149,151,157,167,173,181,191,193,197,199,211,227,229,233,
%U 239,251,257,269,271,277,281,293,307,311,313,317,331,347,349,353,359
%N Primes other than those of the form prime(prime(n)+n-1).
%C From _Carmine Suriano_, Jan 25 2011: (Start)
%C Can be obtained from the following sieve: consider the list of all primes, at step n remove the prime(n)-th number in the list, compact and restart.
%C a(n) can be approximated by 3*n^2/5000 + 9.124*n - 285.77. (End)
%H Carmine Suriano, <a href="/A084792/b084792.txt">Table of n, a(n) for n = 1..2173</a>
%t t=Table[Prime[Prime[n]+n-1], {n, 20}]; Complement[Prime[Range[PrimePi[t[[-1]]]]], t]
%t Table[NextPrime[n, n], {n, 100}] (* _Wesley Ivan Hurt_, Mar 12 2019 *)
%Y Cf. A000040.
%K nonn,easy,less,changed
%O 1,1
%A _Amarnath Murthy_ and _Jason Earls_, Jul 12 2003
%E Edited by _Don Reble_, Mar 14 2006
|
