A331310 a(n) = gcd(n, A293442(n)).

1, 2, 1, 1, 1, 2, 1, 2, 3, 2, 1, 6, 1, 2, 1, 1, 1, 6, 1, 2, 1, 2, 1, 12, 1, 2, 3, 2, 1, 2, 1, 2, 1, 2, 1, 9, 1, 2, 1, 4, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 1, 2, 1, 6, 1, 4, 1, 2, 1, 12, 1, 2, 3, 1, 1, 2, 1, 2, 1, 2, 1, 18, 1, 2, 3, 2, 1, 2, 1, 10, 1, 2, 1, 12, 1, 2, 1, 4, 1, 6, 1, 2, 1, 2, 1, 4, 1, 2, 3, 1, 1, 2, 1, 4, 1

Offset

1,2

Links

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

Formula

a(n) = gcd(n, A293442(n)).

A331310(n) = A331287(n) / A331311(n).

Prog

(PARI)
A019565(n) = {my(j, v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ From A019565
A293442(n) = factorback(apply(e -> A019565(e), factor(n)[, 2]));
A331310(n) = gcd(n, A293442(n));

Crossrefs

Cf. A019565, A293442, A331287, A331311.

Sequence in context: A161094 A307343 A340034 * A241597 A074807 A165194

Adjacent sequences: A331307 A331308 A331309 * A331311 A331312 A331313

Keyword

nonn

Author

Antti Karttunen, Jan 20 2020

Status

approved