Annual Appeal: Please make a donation (tax deductible in USA) to keep the OEIS running. Over 4500 articles have referenced us, often saying "we would not have discovered this result without the OEIS".
1,1
Donovan Johnson, Table of n, a(n) for n = 1..500
sigma(15) = 24 = phi(3 * 15), so 15 is a term of the sequence.
Select[ Range[1936556], EulerPhi[3# ] == DivisorSigma[1, # ] &]
(PARI) is(n)=sigma(n)==eulerphi(3*n) \\ Charles R Greathouse IV, Dec 09 2013
Sequence in context: A027442 A208728 A219689 * A241282 A249056 A219096
Adjacent sequences: A074888 A074889 A074890 * A074892 A074893 A074894
nonn
Joseph L. Pe, Sep 13 2002
Edited and extended by Robert G. Wilson v, Sep 17 2002
approved