A361462 a(n) = A135506(n) mod 4.

2, 1, 2, 1, 1, 3, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 3, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 3, 1, 3, 1, 3, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 3, 1, 1, 3, 1, 1, 1, 1, 1, 3, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 3, 1, 1, 1

Offset

1,1

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Formula

a(n) = A010873(A135506(n)).

Prog

(PARI)
up_to = 65537;
A135506list(up_to_n) = { my(v=vector(up_to), x1=1, x2); for(n=2, 1+up_to_n, x2 = x1+lcm(x1, n); v[n-1] = (x2/x1)-1; x1=x2); (v); };
v135506 = A135506list(up_to);
A135506(n) = v135506[n];
A361462(n) = (A135506(n)%4);

Crossrefs

Cf. A010873, A135506, A361463, A361464 (positions of 3's).

Sequence in context: A078996 A084610 A303336 * A129479 A261095 A249809

Adjacent sequences: A361459 A361460 A361461 * A361463 A361464 A361465

Keyword

nonn

Author

Antti Karttunen, Mar 13 2023

Status

approved