A111172 Position of first occurrence of n in A039819.
1, 2, 4, 3, 63, 5, 6115, 7, 8, 13, 761401060, 11
Offset: 1
Examples
a(6)=5 because the first 6 occurs in A039819 at position 5.
Links
- S. Colton, Refactorable Numbers - A Machine Invention, J. Integer Sequences, Vol. 2, 1999, #2.
Programs
-
Mathematica
c = 0; t = Table[0, {100}]; Do[d = DivisorSigma[0, n]; If[ Mod[n, d]==0, c++; If[d < 101 && t[[d]] == 0, t[[d]] = c; Print[{d, c, n}]]], {n, 10^9}]; t (* Robert G. Wilson v *)
Extensions
a(11) from Donovan Johnson, Apr 04 2011
Comments