OFFSET
1,2
COMMENTS
Numbers k such that k | A002858(k).
a(13) >= 10^8, if it exists.
EXAMPLE
16 is a term since A002858(16) = 48 = 3 * 16 is divisible by 16.
MATHEMATICA
ulams = {1, 2}; Do[AppendTo[ulams, n = Last[ulams]; While[n++; Length[DeleteCases[ Intersection[ulams, n - ulams], n/2, 1, 1]] != 2]; n], {5000}];
Position[ulams/Range[Length[ulams]], _?IntegerQ] // Flatten (* after Jean-François Alcover at A002858 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, May 21 2024
STATUS
approved