A110641 Every 10th term of A083950.

1, 3, 5, 8, 7, 7, 7, 9, 8, 8, 5, 6, 10, 1, 5, 5, 4, 6, 8, 2, 3, 6, 2, 2, 6, 2, 4, 4, 3, 6, 4, 3, 10, 3, 10, 6, 5, 6, 10, 2, 8, 10, 9, 1, 5, 9, 2, 10, 7, 2, 10, 3, 5, 2, 7, 3, 2, 7, 7, 7, 10, 5, 5, 9, 1, 4, 4, 9, 9, 2, 7, 4, 2, 2, 7, 7, 5, 10, 4, 5, 2, 8, 2, 7, 1, 2, 3, 6, 6, 4, 4, 10, 5, 1, 2, 10, 1, 8, 9, 3

Offset: 0

Author

Robert G. Wilson v and Paul D. Hanna, Aug 30 2005

Keywords

• nonn

Crossrefs

Cf. A083950, A110642, A110643.

Programs

PARI

{a(n)=local(d=10,m=10,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)}