A040053 a(n) is 1 if and only if Ramanujan's tau(n) > 0.

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

Offset

1,1

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Formula

a(n) = [A000594(n) > 0]. - Sean A. Irvine, Mar 05 2021

Mathematica

Array[Boole[RamanujanTau[#] > 0] &, 105] (* Michael De Vlieger, Mar 05 2021 *)

Prog

(PARI) a(n) = ramanujantau(n) > 0; \\ Michel Marcus, Mar 05 2021

Crossrefs

Cf. A000594.

Sequence in context: A326822 A088517 A325897 * A267513 A004569 A361116

Adjacent sequences: A040050 A040051 A040052 * A040054 A040055 A040056

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Sean A. Irvine, Mar 05 2021

Status

approved