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,2

Comments

Numerator of (A018252(n)/n).

Links

Table of n, a(n) for n=1..75.

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

Adjacent sequences: A171526 A171527 A171528 * A171530 A171531 A171532

Keyword

nonn,frac,easy

Author

Jaroslav Krizek, Dec 11 2009

Extensions

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

Status

approved