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,1

Comments

These are listed in order of increasing n.

Links

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

Mathematica

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

Crossrefs

Cf. A059109.

Cf. A002618, A046062

Sequence in context: A116623 A349170 A046151 * A075409 A258655 A174362

Adjacent sequences: A046075 A046076 A046077 * A046079 A046080 A046081

Keyword

easy,nice,nonn

Author

Felice Russo

Extensions

Corrected and extended by Jud McCranie, Jan 03 2001

Name clarified by Michel Marcus, Jul 31 2018

Status

approved