A331802 Integers having no representation as sum of two nonsquarefree numbers.
1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 14, 15, 19, 23
Offset: 1
Examples
With the two smallest nonsquarefree numbers 4 and 8, it is not possible to get 1, 2, 3, 4, 5, 6, 7, 9, 10 and 11 as sum of two nonsquarefree numbers.
Links
- G. L. Honaker, Jr. and Chris K. Caldwell, Prime Curios! 23
Crossrefs
Programs
-
Mathematica
max = 25; Complement[Range[max], Union @ Select[Total /@ Tuples[Select[Range[max], !SquareFreeQ[#] &], 2], # <= max &]] (* Amiram Eldar, Feb 24 2020 *)
Comments