A321334 n such that all n - s are squarefree numbers where s is a squarefree number in range n/2 <= s < n.
2, 3, 4, 5, 6, 7, 8, 12, 13, 16, 36
Offset: 1
Examples
a(10)=16, because the squarefree numbers s in the range 8 <= s < 16 are {10, 11, 13, 14, 15}. Also the complementary set {6, 5, 3, 2, 1} has all its members practical numbers. This is the 10th occurrence of such a number.
Links
- Mehdi Hage-Hassan, An elementary introduction to Quantum mechanic, hal-00879586 2013 pp 58.
Programs
-
Mathematica
plst[n_] := Select[Range[Ceiling[n/2], n-1], SquareFreeQ]; lst={}; Do[If[plst[n]!={}&&AllTrue[n-plst[n], SquareFreeQ], AppendTo[lst, n]], {n, 1, 10000}]; lst
Comments