OFFSET
1,1
COMMENTS
Next term if it exists is greater than 10000000. - C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 29 2004
EXAMPLE
phi(45)=24, 45=3^2*5^1, (3+5)*(2+1)=24.
PROG
(PARI) for(n=1, 10000000, f=factor(n); l=#f[, 1]; if(eulerphi(n)==sum(i=1, l, f[i, 1])*sum(i=1, l, f[i, 2]), print1(n, ", "))) (Ronaldo)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
STATUS
approved