login
A356162
a(n) = 1 if n and A276086(n) are coprime, otherwise 0, where A276086 is primorial base exp-function.
5
1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1
OFFSET
0
FORMULA
a(n) = [A324198(n) == 1], where [ ] is the Iverson bracket.
For all n >= 1, a(n) >= A322585(n).
PROG
(PARI) A356162(n) = { my(m=1, p=2, orgn=n); while(n, m *= (p^min(n%p, valuation(orgn, p))); n = n\p; p = nextprime(1+p)); (1==m); };
CROSSREFS
Characteristic function of A324583, whose complement A324584 gives the positions of 0's.
Cf. also A355820.
Sequence in context: A267866 A175087 A318924 * A253414 A127872 A129564
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 28 2022
STATUS
approved