A110632 Every 6th term of A083946 starting from position 0.
1, 6, 6, 3, 6, 2, 6, 4, 4, 6, 3, 2, 1, 2, 3, 1, 6, 6, 1, 2, 6, 4, 2, 4, 2, 6, 2, 4, 2, 6, 5, 2, 2, 1, 5, 3, 6, 6, 2, 5, 3, 1, 4, 5, 4, 6, 2, 4, 3, 1, 6, 2, 3, 3, 6, 4, 1, 6, 3, 2, 5, 3, 3, 3, 6, 6, 5, 4, 2, 5, 3, 2, 4, 3, 3, 2, 6, 6, 3, 1, 5, 3, 6, 2, 4, 2, 6, 5, 4, 3, 3, 1, 4, 2, 4, 3, 3, 6, 3, 5, 5, 4, 4, 6, 4
Offset: 0
Keywords
Programs
-
PARI
{a(n)=local(d=6,m=6,A=1+m*x); for(j=2,d*n, for(k=1,m,t=polcoeff((A+k*x^j+x*O(x^j))^(1/m),j); if(denominator(t)==1,A=A+k*x^j;break)));polcoeff(A,d*n)}