[go: up one dir, main page]

login
A058322
Primes for which A049076(p) = 7.
20
127, 15299, 87803, 219613, 318211, 506683, 919913, 1254739, 1471343, 1828669, 2364361, 3338989, 3509299, 4030889, 5054303, 5823667, 6478961, 6816631, 7220981, 7807321, 10311439, 10875143, 11469013, 12838937, 13243033, 15239333, 15837299, 16827557, 18143603
OFFSET
1,1
LINKS
N. Fernandez, An order of primeness [cached copy, included with permission of the author]
FORMULA
a(n) = A000040(A049081(n)).
MAPLE
A058322 := proc(n)
ithprime(A049081(n)) ;
end proc: # R. J. Mathar, Jul 07 2012
# second Maple program:
map(ithprime@@6, remove(isprime, [$1..42]))[]; # Alois P. Heinz, Mar 15 2020
MATHEMATICA
Nest[ Prime, Select[ Range[40], !PrimeQ[ # ] &], 6] (* Robert G. Wilson v, Mar 15 2004 *)
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 12 2000
EXTENSIONS
More terms from Alois P. Heinz, Mar 15 2020
STATUS
approved