A373838 a(n) = 1 if n and A276150(n) are both multiples of 3, otherwise 0, where A276150 is the digit sum in the primorial base.

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

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) = A079978(n) * A373840(n) = A079978(n) * A079978(A276150(n)).

a(n) = A079978(A373833(n)).

a(n) = A373836(A276086(n)).

If a(x) = a(y) = A329041(x,y) = 1, then a(x+y) = 1 also. See explanation in the comments of A373839.

Prog

(PARI)
A276150(n) = { my(s=0, p=2, d); while(n, d = (n%p); s += d; n = (n-d)/p; p = nextprime(1+p)); (s); };
A373838(n) = !(gcd(n, A276150(n))%3);

Crossrefs

Characteristic function of A373839.

Cf. A079978, A276086, A276150, A329041, A373833, A373836, A373840.

Cf. also A373598.

Sequence in context: A015899 A015494 A267142 * A185119 A280130 A304002

Adjacent sequences: A373835 A373836 A373837 * A373839 A373840 A373841

Keyword

nonn,base

Author

Antti Karttunen, Jun 19 2024

Status

approved