[seqfan] Re: Table in arXiv 2007.03957

[michel.marcus at free.fr]

For N>=3, I wrote this script: 

lista3(nn, N) = { 
a = eulerphi(N)/2 + omega(N); 
b = omega(N) - 1; 
gf = 1/(1-a*t+b*t^2) + O(t^nn); 
lgf = log(gf); 
vector(nn-1, k, sumdiv(k, d, moebius(d)*polcoef(lgf,k/d)/d)); 
} 
So for N=7, I get 3, 2, 5, 10, 24, ... that is A032170 except for 1st term 
----- Mail original -----

De: "Neil Sloane" <njasloane at gmail.com> 
À: "Sequence Fanatics Discussion list" <seqfan at list.seqfan.eu> 
Envoyé: Jeudi 9 Juillet 2020 18:33:12 
Objet: [seqfan] Re: Table in arXiv 2007.03957 

In my professional opinion those 5 sequences are: 

0,1,1,0,1,0,1,1,1,1,2,2,3,3,4,5 = A113788 
1,1,1,1,2,2,4,5,8,11,18,25,40,58,90,135 = A006206 
2,1,2,3,6,9,18,30,56,99,186,335,630,1161,2182,4080 = A001037 
3,3,8,18,48,116,312,810,2184,5880 = A027376 
3,2,5,10,24,50,120,270,640,1500,3600,8610 = A072337 

Best regards 
Neil