login
A257696
a(0) = 0; for n >= 1, a(n) = gcd(A060130(n), a(A257684(n))).
6
0, 1, 1, 2, 1, 1, 1, 2, 2, 3, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 1, 1, 2, 3, 3, 4, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 2, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
OFFSET
0,4
FORMULA
a(0) = 0; for n >= 1, a(n) = gcd(A060130(n), a(A257684(n))).
PROG
(Scheme, with memoizing definec-macro)
(definec (A257696 n) (cond ((zero? n) 0) (else (gcd (A060130 n) (A257696 (A257684 n))))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 05 2015
STATUS
approved