OFFSET
1,2
COMMENTS
Numerator of (A018252(n)/n).
MATHEMATICA
Module[{nn=100, np}, np=DeleteCases[Range[nn], _?PrimeQ]; Numerator[#[[2]]/#[[1]]] &/@Thread[{Range[Length[np]], np}]] (* Harvey P. Dale, Aug 01 2022 *)
CROSSREFS
KEYWORD
nonn,frac,easy
AUTHOR
Jaroslav Krizek, Dec 11 2009
EXTENSIONS
Corrected and extended by Harvey P. Dale, Aug 01 2022
STATUS
approved