login
A160922
Numbers k such that A000217(k)/A006218(k) is an integer.
1
1, 2, 47, 347, 348, 6930, 6947, 6948, 69269, 379131, 4011952, 8280003
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