A356313 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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 (list; graph; refs; listen; history; text; internal format)

	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: A200263 A051067 A288858 * A309218 A189718 A054638` `Adjacent sequences: A356310 A356311 A356312 * A356314 A356315 A356316`
	KEYWORD	`nonn`
	AUTHOR	`Antti Karttunen, Nov 04 2022`
	STATUS	`approved`

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 22:15 EDT 2023. Contains 361599 sequences. (Running on oeis4.)