login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Every 6th term of A083946 starting from position 0.
3

%I #7 Mar 13 2015 00:05:05

%S 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,

%T 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,

%U 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

%N Every 6th term of A083946 starting from position 0.

%o (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)}

%Y Cf. A083946, A110633, A110634, A110631 (m=5), A110635 (m=7).

%K nonn

%O 0,2

%A _Robert G. Wilson v_ and _Paul D. Hanna_, Aug 30 2005