A380413 Terms appearing twice in A378086 (number of nonsquarefree numbers < prime(n)).
0, 1, 11, 14, 39, 53, 109, 179, 222, 240, 251, 319, 337, 481, 505, 508, 578, 664, 674, 738, 818, 835, 877, 905, 933, 1041, 1069, 1098, 1325, 1352, 1392, 1535, 1539, 1567, 1652, 1663, 1732, 1817, 1849, 1960, 2134, 2148, 2158, 2220, 2387, 2428, 2457, 2622, 2625
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
y=Table[Length[Select[Range[Prime[n]],!SquareFreeQ[#]&]],{n,100}]; Select[Most[Union[y]],Count[y,#]==2&]
Comments