|
%I #15 Mar 15 2020 21:34:02
%S 127,15299,87803,219613,318211,506683,919913,1254739,1471343,1828669,
%T 2364361,3338989,3509299,4030889,5054303,5823667,6478961,6816631,
%U 7220981,7807321,10311439,10875143,11469013,12838937,13243033,15239333,15837299,16827557,18143603
%N Primes for which A049076(p) = 7.
%H N. Fernandez, <a href="http://www.borve.org/primeness/FOP.html">An order of primeness, F(p)</a>
%H N. Fernandez, <a href="/A006450/a006450.html">An order of primeness</a> [cached copy, included with permission of the author]
%F a(n) = A000040(A049081(n)).
%p A058322 := proc(n)
%p ithprime(A049081(n)) ;
%p end proc: # _R. J. Mathar_, Jul 07 2012
%p # second Maple program:
%p map(ithprime@@6, remove(isprime, [$1..42]))[]; # _Alois P. Heinz_, Mar 15 2020
%t Nest[ Prime, Select[ Range[40], !PrimeQ[ # ] &], 6] (* _Robert G. Wilson v_, Mar 15 2004 *)
%Y Cf. A049076, A007821, A049078, A049079, A049080, A049081, A058324, A058325, A058326, A058327, A058328, A093046, A006450.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Dec 12 2000
%E More terms from _Alois P. Heinz_, Mar 15 2020
|
