A211680 Pairs of deficient numbers having the same value of sigma(k)/k in the order that they are found.
135, 819, 3375, 6975, 1485, 9009, 2295, 13923, 2565, 15561, 3105, 18837, 3915, 23751, 4185, 25389, 4995, 30303, 5535, 33579, 5805, 35217, 6345, 38493, 25137, 40131, 7155, 43407, 7965, 48321, 8235, 49959, 9045, 54873, 9585, 58149, 9855, 59787, 10665, 64701
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n = 1..2860
Crossrefs
Programs
-
Mathematica
nn = 10^5; t = DivisorSigma[1, Range[nn]]/Range[nn]; t2 = Transpose[Select[Tally[t], #[[1]] < 2 && #[[2]] > 1 &]][[1]]; Sort[Table[Flatten[Position[t, t2[[n]]]], {n, Length[t2]}], #1[[2]] < #2[[2]] &]
Comments