|
| |
|
|
A073872
|
|
Smallest positive triangular number not included earlier that is a multiple of n (a permutation of the triangular numbers).
|
|
2
| |
|
|
1, 6, 3, 28, 10, 36, 21, 120, 45, 190, 55, 276, 78, 210, 15, 496, 136, 378, 171, 300, 105, 66, 253, 528, 325, 780, 351, 1176, 406, 630, 465, 2016, 231, 1326, 595, 2556, 666, 1596, 741, 2080, 820, 3486, 903, 1540, 990, 2346, 1081, 4560, 1225, 2850, 153, 5356
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| a[n_] := a[n]=Module[{s, k, t}, s=a/@Range[1, n-1]; For[k=t=1, True, t+=++k, If[Mod[t, n]==0&&!MemberQ[s, t], Return[t]]]]
|
|
|
CROSSREFS
| Cf. A073873, A073874.
Sequence in context: A088697 A039631 A066561 * A163913 A022666 A038257
Adjacent sequences: A073869 A073870 A073871 * A073873 A073874 A073875
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Aug 16 2002
|
|
|
EXTENSIONS
| Edited by Dean Hickerson (dean.hickerson(AT)yahoo.com), Oct 15 2002
|
| |
|
|
