A049081 Primes prime(k) for which A049076(k) = 5.

31, 1787, 8527, 19577, 27457, 42043, 72727, 96797, 112129, 137077, 173867, 239489, 250751, 285191, 352007, 401519, 443419, 464939, 490643, 527623, 683873, 718807, 755387, 839483, 864013, 985151, 1021271, 1080923, 1159901, 1278779

Offset: 1

Author

Neil Fernandez

Keywords

• nonn
• easy

Links

• Jens Kruse Andersen, Table of n, a(n) for n = 1..1000
• N. Fernandez, An order of primeness, F(p)
• N. Fernandez, An order of primeness [cached copy, included with permission of the author]

Crossrefs

Cf. A049076, A007821, A049078, A049079, A049080, A058322, A058324, A058325, A058326, A058327, A058328, A093046, A006450.

Programs

Maple

A049081 := proc(n)
        ithprime(A049080(n)) ;
end proc: # R. J. Mathar, Jul 07 2012

Mathematica

Nest[ Prime, Select[ Range[44], !PrimeQ[ # ] &], 5] (* Robert G. Wilson v, Mar 15 2004 *)

Extensions

More terms from Robert G. Wilson v, Dec 12 2000