A381036 a(n) = 1 if there is a digit > 1 in the primorial base expansion of n, and the corresponding radix primes of all such digits are also prime factors of n, otherwise 0.

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1

Offset

0

Links

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

Index entries for characteristic functions.

Index entries for sequences related to primorial base.

Formula

a(n) <= A381033(n).

Prog

(PARI) A381036(n) = { my(p=2, orgn=n, ds=0); while(n, if((n%p)>1, ds++; if((orgn%p)>0, return(0))); n = n\p; p = nextprime(1+p)); (ds>0); };

Crossrefs

Characteristic function of A381037.

Cf. A049345, A381033.

Differs from related A381033 first at n=75.

Sequence in context: A380454 A101637 A337380 * A381033 A011729 A297044

Adjacent sequences: A381033 A381034 A381035 * A381037 A381038 A381039

Keyword

nonn

Author

Antti Karttunen, Feb 17 2025

Status

approved