OFFSET
1,2
EXAMPLE
The 5th number in the sequence must be the 5th pentagonal (5-gonal) number which can be divided by 5, namely 210.
MAPLE
A117669 := proc(n)
fdiv := 0 ;
for i from 1 do
if modp(A057145(n, i), n) = 0 then
fdiv := fdiv+1 ;
if fdiv = n then
return A057145(n, i) ;
end if;
end if;
end do:
end proc:
seq(A117669(n), n=1..40) ; # R. J. Mathar, Nov 22 2022
MATHEMATICA
Table[Select[PolygonalNumber[n, Range[2000]], Mod[#, n]==0&][[n]], {n, 40}] (* Harvey P. Dale, Jun 08 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 11 2006
EXTENSIONS
Offset and 2nd term corrected by R. J. Mathar, Nov 22 2022
STATUS
approved