A237122 Smallest lucky number that is divisible by n-th lucky number.

3, 9, 21, 63, 169, 75, 63, 75, 93, 99, 111, 129, 735, 357, 189, 201, 483, 219, 975, 237, 261, 651, 297, 735, 777, 805, 2667, 645, 399, 1485, 1833, 1057, 477, 489, 1183, 855, 1323, 579, 975, 1809, 615, 1899, 1095, 2899, 693, 1645, 1659, 723, 777, 1827, 801, 819

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Example

a(27) = 2667 because 2667 = A000959(355) = 21*127 = 21*A000959(27). So a(27) is the smallest lucky number that is divisible by 27th lucky number.

Mathematica

t = 2*Range@10000 - 1; f[m_] := Block[{k = t[[m]]}, t = Delete[t, Table[{k}, {k, k, Length@t, k}]]]; Do[f@m, {m, 2, 60}];
Table[k=1; While[Mod[t[[k]], t[[n]]] !=0|| t[[k]]== t[[n]], k++]; t[[k]], {n, 1, 55}]

Crossrefs

Cf. A000959.

Sequence in context: A307105 A239663 A004667 * A326313 A073947 A062811

Adjacent sequences: A237119 A237120 A237121 * A237123 A237124 A237125

Keyword

nonn

Author

Michel Lagneau, Apr 22 2014

Status

approved