OFFSET
0,1
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
FORMULA
a(n) <= n^2 + n + 2. For n>0, a(n) <= n^2 + n + 1.
EXAMPLE
Least prime p such that triangular(3)*p is a triangular number is p=11, so a(3) = 11.
MAPLE
f:= proc(n) local m, y, S;
m:= 4*n*(n+1);
S:= map(t -> rhs(op(t)), [msolve(y^2-1, m)]);
S:= select(isprime, map(t -> (t^2-1)/m, S));
if S = [] then 0 else min(S) fi
end proc:
f(0):= 2:
map(f, [$0..100]); # Robert Israel, Nov 04 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, May 16 2013
STATUS
approved
