A046078 Primes of the form n*phi(n)-1 where phi is the Euler function (in order of appearance).

5, 7, 19, 11, 41, 31, 53, 109, 47, 83, 127, 271, 107, 251, 191, 499, 311, 811, 239, 929, 659, 839, 431, 683, 503, 2161, 971, 3659, 2267, 3119, 1319, 4421, 4969, 2663, 2999, 1871, 4373, 4871, 6551, 9311, 5939, 10099, 5039, 8423, 11423, 13309, 9839, 16001

Offset: 1

Author

Felice Russo

Keywords

• easy
• nice
• nonn

Comments

These are listed in order of increasing n.

Links

• T. D. Noe, Table of n, a(n) for n=1..1000

Crossrefs

Cf. A059109.

Cf. A002618, A046062

Programs

Mathematica

Select[Table[n EulerPhi[n]-1,{n,250}],PrimeQ[#]&] (* Harvey P. Dale, Aug 15 2011 *)

Extensions

Corrected and extended by Jud McCranie, Jan 03 2001

Name clarified by Michel Marcus, Jul 31 2018