A069753 Smallest k>n such that the tetrahedral number n*(n+1)*(n+2)/6 divides the tetrahedral number k*(k+1)*(k+2)/6.

2, 4, 4, 8, 13, 14, 26, 54, 43, 20, 64, 26, 63, 48, 118, 270, 151, 170, 55, 54, 229, 207, 274, 350, 323, 350, 376, 174, 433, 928, 494, 1054, 119, 440, 259, 664, 701, 208, 778, 328, 859, 516, 944, 504, 1033, 2160, 1126, 2350, 1223, 1274, 1324, 1376, 1429, 350

Offset

1,1

Links

Table of n, a(n) for n=1..54.

Mathematica

stn[n_]:=Module[{i=n+1, tn=(n(n+1)(n+2))/6}, While[!Divisible[(i(i+1) (i+2))/6, tn], i++]; i]; stn/@Range[70]  (* Harvey P. Dale, Apr 11 2011 *)

Prog

(PARI) for(s=1, 80, n=s+1; while(frac(n*(n+1)*(n+2)/(s*(s+1)*(s+2)))>0, n++); print1(n, ", "); )

Crossrefs

Sequence in context: A335974 A047073 A308528 * A181245 A216950 A240364

Adjacent sequences: A069750 A069751 A069752 * A069754 A069755 A069756

Keyword

easy,nonn

Author

Benoit Cloitre, May 01 2002

Status

approved