A126889 a(n) = the number of divisors of A126888(n).
1, 2, 2, 6, 2, 2, 6, 2, 2, 6, 2, 4, 4, 2, 2, 3, 4, 2, 4, 2, 2, 4, 2, 6, 6, 2, 4, 4, 2, 2, 4, 4, 2, 6, 2, 2, 8, 4, 2, 3, 2, 16, 6, 2, 4, 4, 6, 2, 8, 2, 2, 4, 2, 2, 4, 2, 8, 4, 4, 6, 4, 4, 2, 4, 2, 4, 6, 2, 2, 6, 4, 4, 4, 2, 2, 4, 4, 2, 4, 4, 2, 4, 2, 4, 4, 2, 6, 4, 2, 2, 4, 4, 11, 4, 2, 2, 4, 2, 2, 4, 4, 4, 4, 4, 2
Offset: 1
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A126888.
Programs
-
Mathematica
f[n_] := Block[{k = 1, d}, While[d = Length[Divisors[k]]; Floor[k/d] != n, k++ ]; d]; Table[f[n], {n, 105}] (* Ray Chandler, Jan 04 2007 *)
Extensions
Extended by Ray Chandler, Jan 04 2007
Comments