A259365 Numbers n such that phi(Rev(n)) - phi(n) = n.
28, 139872, 2764928, 34141176, 329774256
Offset: 1
Examples
phi(82) - phi(28) = 40 - 12 = 28; phi(278931) - phi(139872) = 184032 - 44160 = 139872; etc.
Programs
-
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);
Comments