OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
William D. Banks, John B. Friedlander, Florian Luca, Francesco Pappalardi, and Igor E. Shparlinski, Coincidences in the values of the Euler and Carmichael functions, Acta Arithmetica 122 (2006), 207-234.
PROG
(PARI) isA002174(n) = if(n%2, return(n==1)); my(f=factor(n), pe); for(i=1, #f~, if(n%(f[i, 1]-1)==0, next); pe=f[i, 1]^f[i, 2]; forstep(q=2*pe+1, n+1, 2*pe, if(n%(q-1)==0 && isprime(q), next(2))); return(0)); 1 \\ Charles R Greathouse IV at A002174
is(n) = !istotient(n) && isA002174(n); \\ Amiram Eldar, Dec 01 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Mar 14 2016
STATUS
approved