A067568 - OEIS

%I #13 May 05 2018 05:38:52

%S 0,1,2,5,9,11,15

%N Numbers n such that A000009(n) divides A022629(n).

%C Next term > 10^4. - _Joerg Arndt_, Oct 14 2014

%C Next term, if it exists, is greater than 1000000. - _Vaclav Kotesovec_, May 05 2018

%o (PARI)

%o N=1002;  q='q+O('q^N);

%o t1=Vec(prod(m=1,N,1+q^m)); \\ A000009

%o t2=Vec(prod(m=1,N,1+m*q^m)); \\ A022629

%o for(k=1,N, if(t2[k]%t1[k]==0,print1(k-1,", ")) );

%o \\ _Joerg Arndt_, Oct 14 2014

%K nonn,more

%O 1,3

%A _Naohiro Nomoto_, Jan 30 2002