A112456 Least triangular number divisible by n-th prime.

6, 3, 10, 21, 55, 78, 136, 171, 253, 406, 465, 666, 820, 903, 1081, 1378, 1711, 1830, 2211, 2485, 2628, 3081, 3403, 3916, 4656, 5050, 5253, 5671, 5886, 6328, 8001, 8515, 9316, 9591, 11026, 11325, 12246, 13203, 13861, 14878, 15931, 16290, 18145, 18528, 19306

Offset

1,1

Comments

Essentially the same as A008837; only the first terms differ.

Links

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

Formula

a(n) = p*(p-1)/2, for p = prime(n) and n >= 2. - Michael S. Branicky, Jun 03 2021

Mathematica

With[{tr=Accumulate[Range[300]]}, Table[SelectFirst[tr, Divisible[#, Prime[n]]&], {n, 50}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 06 2018 *)

Prog

(PARI)
T(n) = n*(n+1)/2
for(n=1, 100, p=prime(n); tr=1; while(T(tr)%p<>0, tr++); print1(T(tr), ", "))
(Python)
from sympy import prime
def a(n):
    if n == 1: return 6
    p = prime(n)
    return p*(p-1)//2
print([a(n) for n in range(1, 46)]) # Michael S. Branicky, Jun 03 2021

Crossrefs

Cf. A000217 (triangular numbers), A008837 (p(p-1)/2 for p prime).

Sequence in context: A066070 A336319 A272549 * A060534 A060445 A131894

Adjacent sequences: A112453 A112454 A112455 * A112457 A112458 A112459

Keyword

nonn

Author

Rick L. Shepherd, Sep 06 2005

Status

approved