OFFSET
1,1
COMMENTS
Is it accidental that most terms have form 10k+3?
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..100
MATHEMATICA
Do[If[Equal[EulerPhi[n], EulerPhi[3*n+1]], Print[n]], {n, 1, 100000000}]
PROG
(PARI) is(n)=my(t=eulerphi(3*n+1)); t<n && t==eulerphi(n) \\ Charles R Greathouse IV, May 19 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Feb 19 2004
EXTENSIONS
a(20)-a(27) from Donovan Johnson, Jul 27 2011
STATUS
approved