A324932 Numerator in the division of n by the product of prime indices of n.
1, 2, 3, 4, 5, 3, 7, 8, 9, 10, 11, 6, 13, 7, 5, 16, 17, 9, 19, 20, 21, 22, 23, 12, 25, 13, 27, 7, 29, 5, 31, 32, 33, 34, 35, 9, 37, 19, 13, 40, 41, 21, 43, 44, 15, 46, 47, 24, 49, 50, 51, 26, 53, 27, 11, 14, 57, 29, 59, 10, 61, 62, 63, 64, 65, 33, 67, 68, 23
Offset: 1
Examples
The sequence of quotients n/A003963(n) begins: 1, 2, 3/2, 4, 5/3, 3, 7/4, 8, 9/4, 10/3, 11/5, 6, 13/6, 7/2, 5/2, 16, ...
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
Table[n/Times@@Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>PrimePi[p]^k],{n,100}]//Numerator
Comments