|
|
A074241
|
|
Numbers n such that phi(n+1) = reverse(phi(n)).
|
|
1
|
|
|
1, 3, 15, 129, 833, 5044, 59815, 267335, 297863, 9633693, 4642779313, 62935243460, 91770096041, 1648209018135
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
phi(129 + 1) = 48 = reverse(84) = reverse(phi(129)), so 129 is a term of the sequence.
|
|
MATHEMATICA
|
Select[Range[10^5], FromDigits[Reverse[IntegerDigits[EulerPhi[ # ]]]] == EulerPhi[ # + 1] &]
|
|
PROG
|
(PARI) isok(n) = eulerphi(n+1) == fromdigits(Vecrev(digits(eulerphi(n)))); \\ Michel Marcus, Aug 12 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|