A049079 Primes prime(k) for which A049076(k) = 3.

5, 59, 179, 331, 431, 599, 919, 1153, 1297, 1523, 1847, 2381, 2477, 2749, 3259, 3637, 3943, 4091, 4273, 4549, 5623, 5869, 6113, 6661, 6823, 7607, 7841, 8221, 8719, 9461, 9739, 9859, 11743, 11953, 12097, 12301, 12547, 13469, 13709, 14177, 14723, 14867

Offset: 1

Author

Neil Fernandez

Keywords

• nonn

Links

• 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, A049080, A049081, A058322, A058324, A058325, A058326, A058327, A058328, A093046, A006450.

Programs

Maple

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

Mathematica

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

Extensions

Definition edited by Zak Seidov, Sep 15 2013