login
A046078
Primes of the form n*phi(n)-1 where phi is the Euler function (in order of appearance).
3
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.
MATHEMATICA
Select[Table[n EulerPhi[n]-1, {n, 250}], PrimeQ[#]&] (* Harvey P. Dale, Aug 15 2011 *)
CROSSREFS
Cf. A059109.
Sequence in context: A116623 A349170 A046151 * A075409 A258655 A174362
KEYWORD
easy,nice,nonn
AUTHOR
EXTENSIONS
Corrected and extended by Jud McCranie, Jan 03 2001
Name clarified by Michel Marcus, Jul 31 2018
STATUS
approved