OFFSET
1,1
COMMENTS
a(6) > 3*10^10. - Giovanni Resta, Jun 26 2015
EXAMPLE
phi(82) - phi(28) = 40 - 12 = 28;
phi(278931) - phi(139872) = 184032 - 44160 = 139872; etc.
MAPLE
with(numtheory): T:=proc(w) local x, y, z; x:=w; y:=0;
for z from 1 to ilog10(x)+1 do
y:=10*y+(x mod 10); x:=trunc(x/10); od; y; end:
P:=proc(q) local a, j, k, n; for n from 1 to q do
if phi(T(n))-phi(n)=n then print(n); fi; od; end: P(10^9);
CROSSREFS
KEYWORD
nonn,more,base
AUTHOR
Paolo P. Lava, Jun 25 2015
STATUS
approved