1,1
This sequence is a subsequence of A066198.
de[n_]:=DivisorSigma[1, n]-EulerPhi[n]; Do[If[de[n]==de[n+1], Print[n]], {n, 50000000}]
Cf. A066198, A145749.
Sequence in context: A013537 A028485 A034227 this_sequence A141185 A128667 A050247
Adjacent sequences: A145745 A145746 A145747 this_sequence A145749 A145750 A145751
more,nonn
Farideh Firoozbakht (mymontain(AT)yahoo.com), Nov 01 2008
Search completed in 0.002 seconds