OFFSET
1,1
COMMENTS
n*phi(n)/2 is of the form 'm' U 'n'.
EXAMPLE
phi(920) = 352; 902*352/2 = 161920 that is '161' U '920'.
MAPLE
with(numtheory); P:=proc(q) local a, b, n;
for n from 1 to q do a:=n; b:=0; while a>0 do b:=b+1; a:=trunc(a/10); od;
if n=((n*phi(n)/2) mod 10^b) then print(n); fi; od; end: P(10^9);
CROSSREFS
KEYWORD
nonn,more,base
AUTHOR
Paolo P. Lava, Mar 13 2014
EXTENSIONS
a(8)-a(15) from Giovanni Resta, Mar 14 2014
STATUS
approved