A373056 Numbers k that divide the k-th Ulam number.
1, 2, 3, 4, 16, 52, 204, 255, 4259, 4262, 4265, 4855
Offset: 1
Examples
16 is a term since A002858(16) = 48 = 3 * 16 is divisible by 16.
Crossrefs
Programs
-
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 *)
Comments