|
%I #21 Feb 17 2024 10:32:23
%S 5,7,19,11,41,31,53,109,47,83,127,271,107,251,191,499,311,811,239,929,
%T 659,839,431,683,503,2161,971,3659,2267,3119,1319,4421,4969,2663,2999,
%U 1871,4373,4871,6551,9311,5939,10099,5039,8423,11423,13309,9839,16001
%N Primes of the form n*phi(n)-1 where phi is the Euler function (in order of appearance).
%C These are listed in order of increasing n.
%H T. D. Noe, <a href="/A046078/b046078.txt">Table of n, a(n) for n=1..1000</a>
%t Select[Table[n EulerPhi[n]-1,{n,250}],PrimeQ[#]&] (* _Harvey P. Dale_, Aug 15 2011 *)
%Y Cf. A059109.
%Y Cf. A002618, A046062
%K easy,nice,nonn
%O 1,1
%A _Felice Russo_
%E Corrected and extended by _Jud McCranie_, Jan 03 2001
%E Name clarified by _Michel Marcus_, Jul 31 2018
|
