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.

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

Links

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

Index entries for characteristic functions

Index entries for sequences related to primorial base

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.

Cf. A002110, A276086, A356302, A356309.

Sequence in context: A373153 A051067 A288858 * A309218 A189718 A054638

Adjacent sequences: A356310 A356311 A356312 * A356314 A356315 A356316

Keyword

nonn

Author

Antti Karttunen, Nov 04 2022

Status

approved