OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
EXAMPLE
183 + phi(183) = 183 + 120 = 303.
MAPLE
ispali:= proc(n) local L; L:= convert(n, base, 10); andmap(t -> L[t]=L[-t], [$1..nops(L)/2]) end proc:
select(t -> ispali(t+numtheory:-phi(t)), [$1..1000]); # Robert Israel, Sep 19 2022
MATHEMATICA
nppQ[n_]:=Module[{idn=IntegerDigits[n+EulerPhi[n]]}, idn==Reverse[idn]]; Select[Range[1000], nppQ] (* Harvey P. Dale, Aug 18 2013 *)
PROG
(PARI) ispal(n) = my(d=digits(n)); d == Vecrev(d) \\ A002113
isok(k) = ispal(k+eulerphi(k)) \\ Alexandru Petrescu, Sep 19 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Feb 06 2006
STATUS
approved