OFFSET
1,2
COMMENTS
There are only 46 terms up to 10 million. - Harvey P. Dale, Oct 04 2012
LINKS
Harvey P. Dale and Donovan Johnson, Table of n, a(n) for n = 1..150 (first 46 terms from Harvey P. Dale)
EXAMPLE
sigma(79035) = 138240 ends in phi(79035) = 38240, so 79035 is a term of the sequence.
MATHEMATICA
(*returns true if a ends with b, false o.w.*) f[a_, b_] := Module[{c, d, e, g, h, i, r}, r = False; c = ToString[a]; d = ToString[b]; e = StringLength[c]; g = StringPosition[c, d]; h = Length[g]; If[h > 0, i = g[[h]]; If[i[[2]] == e, r = True]]; r]; Select[Range[10^5], f[DivisorSigma[1, # ], EulerPhi[ # ]] & ]
dsepQ[n_]:=Module[{ep=EulerPhi[n]}, Mod[DivisorSigma[1, n], 10^ IntegerLength[ ep]]==ep]; Select[Range[250000], dsepQ] (* Harvey P. Dale, Oct 04 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, Feb 20 2002
EXTENSIONS
More terms from Vladeta Jovovic, Feb 22 2002
STATUS
approved