A393067 a(n) = 1 if A276086(A003415(n)) <= n, otherwise 0, where A003415 is the arithmetic derivative and A276086 is the primorial base exp-function.

1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1

Offset

1

Links

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

Index entries for characteristic functions.

Index entries for sequences related to primorial base.

Prog

(PARI) A393067(n) = if(!n, 0, my(f=factor(n), u = n*sum(i=1, #f~, f[i, 2]/f[i, 1]), m=1, p=2); while(u, m *= (p^(u%p)); if(m>n, return(0)); u \= p; p = nextprime(1+p)); (1));

Crossrefs

Characteristic function of A392867.

Cf. A003415, A276086.

Cf. also A393068.

Sequence in context: A359779 A373834 A132194 * A354034 A174897 A316441

Adjacent sequences: A393064 A393065 A393066 * A393068 A393069 A393070

Keyword

nonn

Author

Antti Karttunen, Jan 31 2026

Status

approved