login
A356313
a(n) = 1 if {the least k >= n such that n and A276086(k) are coprime} is one of the primorial numbers (A002110), otherwise 0.
4
0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1
OFFSET
0
PROG
(PARI)
\\ Needs also code from A356302.
A356309(n) = (n+A356302(n));
isA002110(n) = if(n<=1, n, my(f=factor(n), o=omega(n)); (bigomega(n)==o)&&(primepi(f[o, 1])==o));
A356313(n) = isA002110(A356309(n));
CROSSREFS
Characteristic function of A356314.
Sequence in context: A373153 A051067 A288858 * A309218 A189718 A054638
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 04 2022
STATUS
approved