OFFSET
1,2
COMMENTS
No more terms below 10^6. - Robert G. Wilson v, Jan 05 2002
No more terms below 2 * 10^17. - Charles R Greathouse IV, Feb 15 2011
On the Riemann hypothesis, a(7) = 36 is the last member of this sequence. - Charles R Greathouse IV, Feb 15 2011
EXAMPLE
g(sigma(4)) = g(7) = prime(8)-prime(7) = 19-17 = 2 = phi(4).
MATHEMATICA
g[x_] := Prime[x + 1] - Prime[x]; Select[Range[1, 10^5], g[DivisorSigma[1, # ]] == EulerPhi[ # ] &]
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Joseph L. Pe, Jan 04 2002
STATUS
approved