OFFSET
1,2
COMMENTS
The next term, if it exists, is > 10^9. - Vaclav Kotesovec, Oct 16 2018
The next term, if it exists, is > 10^10. - Charles R Greathouse IV, Nov 05 2021
PROG
(PARI) is(n)=my(m=sum(k=1, sqrtint(n), n\k)*2-sqrtint(n)^2); n^2%m==0 \\ Charles R Greathouse IV, Nov 04 2021
(PARI) A006218(n)=sum(k=1, sqrtint(n), n\k)*2-sqrtint(n)^2
list(lim, startAt=1)=startAt=ceil(startAt); my(v=List(), s=A006218(startAt-1)); for(n=startAt, lim, s+=numdiv(n); if(binomial(n+1, 2)%s==0, listput(v, n))); Vec(v) \\ Charles R Greathouse IV, Nov 04 2021
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Ctibor O. Zizka, May 30 2009
EXTENSIONS
a(9)-a(10) from R. J. Mathar, Aug 30 2010
a(11) from Paolo P. Lava, May 06 2015
a(12) from Vaclav Kotesovec, Oct 14 2018
STATUS
approved