OFFSET
1,2
COMMENTS
Odd terms in A005105 are primes solutions to p==-1 (mod phi(p+1)).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..336 (terms below 5*10^10)
MATHEMATICA
Select[Range[30000], !PrimeQ[#] && Divisible[# + 1, EulerPhi[# + 1]] &] (* Amiram Eldar, Nov 29 2020 *)
PROG
(PARI) isok(m) = !isprime(m) && (Mod(m, eulerphi(m+1)) == -1); \\ Michel Marcus, Nov 29 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 22 2002
STATUS
approved