A354344 a(n) = 1 if n is x * A005383(i), where x is either 2, 3, 8, 9 or 15 and i > 2 [i.e., A005383(i) > 5], otherwise 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, 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, 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, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0

Offset

1

Links

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

Index entries for characteristic functions

Prog

(PARI) A354344(n) = { if(!(n%15), n/=15, if(!(n%9), n/=9, if(!(n%8), n/=8, if(!(n%3), n/=3, if(!(n%2), n/=2, return(0)))))); ((n>5) && isprime(n) && isprime((1+n)/2)); };

Crossrefs

Characteristic function of A354345.

Cf. A005383.

Sequence in context: A369058 A277165 A011740 * A085974 A011739 A023975

Adjacent sequences: A354341 A354342 A354343 * A354345 A354346 A354347

Keyword

nonn

Author

Antti Karttunen, May 25 2022

Status

approved