OFFSET
1,2
FORMULA
It seems that lim n -> infinity a(n)/n exists around 40.
MATHEMATICA
Select[Range[3000], Last[IntegerDigits[#]]==Last[ IntegerDigits[ EulerPhi[ #]]] == Last[ IntegerDigits[ DivisorSigma[1, #]]]&] (* Harvey P. Dale, Aug 03 2014 *)
PROG
(PARI) isok(n) = ((n % 10) == (eulerphi(n) % 10)) && ((n % 10) == (sigma(n) % 10)); \\ Michel Marcus, Nov 26 2013
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Benoit Cloitre, Aug 06 2002
STATUS
approved