A154281 1,0,0,1 followed by 0,0,0...
1, 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, 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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Offset: 1
Programs
-
Mathematica
PadRight[{1,0,0,1},120,0] (* Harvey P. Dale, Aug 06 2012 *)
-
PARI
a(n)={n==1 || n==4} \\ Andrew Howroyd, Aug 05 2018
Formula
Multiplicative with a(2^2) = 1, a(2^e) = 0 for e<>2, a(p^e) = 0 for odd prime p. - Andrew Howroyd, Aug 05 2018
Comments