|
|
A137598
|
|
Numbers n such that phi(n)=reversal(n)+1.
|
|
2
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
phi(95793434)=43439760=43439759+1=reversal(95793434)+1, so 95793434 is in the sequence.
|
|
MATHEMATICA
|
Do[If[EulerPhi@n==FromDigits@Reverse@IntegerDigits@n+1, Print[n]], {n, 255000000}]
|
|
PROG
|
(PARI) isok(m) = eulerphi(m) == fromdigits(Vecrev(digits(m)))+1; \\ Michel Marcus, Aug 13 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|