login
A351250
Numerator of n / A276086(n).
4
0, 1, 2, 1, 4, 5, 6, 7, 8, 3, 2, 11, 12, 13, 14, 1, 16, 17, 18, 19, 4, 7, 22, 23, 24, 1, 26, 9, 28, 29, 30, 31, 32, 11, 34, 5, 36, 37, 38, 13, 8, 41, 6, 43, 44, 3, 46, 47, 48, 7, 2, 17, 52, 53, 54, 11, 8, 19, 58, 59, 60, 61, 62, 3, 64, 65, 66, 67, 68, 23, 2, 71, 72, 73, 74, 1, 76, 11, 78, 79, 16, 27, 82, 83, 12, 17
OFFSET
0,3
LINKS
FORMULA
a(n) = n / A324198(n) = n / gcd(n, A276086(n)).
a(n) = n / gcd(n, A328386(n)).
MATHEMATICA
Array[Block[{i, m, n = #, p}, m = i = 1; While[n > 0, p = Prime[i]; m *= p^Mod[n, p]; n = Quotient[n, p]; i++]; Numerator[#/m]] &, 86, 0] (* Michael De Vlieger, Feb 06 2022 *)
PROG
(PARI)
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A351250(n) = numerator(n/A276086(n));
CROSSREFS
Cf. A276086, A324198, A328386, A328387 (positions of ones), A351251 (denominators).
Cf. A324583 (the positions of fixed points after the zero).
Cf. also A351230.
Sequence in context: A262586 A058359 A261608 * A351253 A110332 A052947
KEYWORD
nonn,frac,easy
AUTHOR
Antti Karttunen, Feb 05 2022
STATUS
approved