|
%I #6 Aug 01 2022 13:34:35
%S 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,
%T 10,42,22,45,23,16,49,10,17,52,27,55,7,57,29,60,31,7,32,65,11,68,69,
%U 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
%N Numerator of (n-th nonprime/n).
%C Numerator of (A018252(n)/n).
%t Module[{nn=100,np},np=DeleteCases[Range[nn],_?PrimeQ];Numerator[#[[2]]/#[[1]]] &/@Thread[{Range[Length[np]],np}]] (* _Harvey P. Dale_, Aug 01 2022 *)
%K nonn,frac,easy
%O 1,2
%A _Jaroslav Krizek_, Dec 11 2009
%E Corrected and extended by _Harvey P. Dale_, Aug 01 2022
|
