A171529 Numerator of (n-th nonprime/n).

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

Author

Jaroslav Krizek, Dec 11 2009

Keywords

• nonn
• frac
• easy

Comments

Numerator of (A018252(n)/n).

Programs

Mathematica

Module[{nn=100,np},np=DeleteCases[Range[nn],?PrimeQ];Numerator[#[[2]]/#[[1]]] &/@Thread[{Range[Length[np]],np}]] (* _Harvey P. Dale, Aug 01 2022 *)

Extensions

Corrected and extended by Harvey P. Dale, Aug 01 2022