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
Links
- T. D. Noe, Table of n, a(n) for n=1..1000
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
Comments