login
A171529
Numerator of (n-th nonprime/n).
2
1, 2, 2, 2, 9, 5, 12, 7, 5, 8, 18, 5, 21, 11, 8, 25, 26, 3, 28, 3, 32, 3, 34, 35, 36, 19, 13, 10, 42, 22, 45, 23, 16, 49, 10, 17, 52, 27, 55, 7, 57, 29, 60, 31, 7, 32, 65, 11, 68, 69, 70, 18, 74, 25, 76, 11, 26, 40, 81, 41, 84, 85, 86, 87, 88, 15, 91, 23, 31, 47, 95, 4, 98, 99, 4
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
Sequence in context: A086364 A260662 A228044 * A260324 A157649 A155695
KEYWORD
nonn,frac,easy
AUTHOR
Jaroslav Krizek, Dec 11 2009
EXTENSIONS
Corrected and extended by Harvey P. Dale, Aug 01 2022
STATUS
approved