OFFSET
1,2
COMMENTS
EXAMPLE
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, ...
MATHEMATICA
Select[Table[n/Times@@Cases[If[n==1, {}, FactorInteger[n]], {p_, k_}:>PrimePi[p]^k], {n, 100}], IntegerQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 21 2019
STATUS
approved