A127250 Sequence consisting of 1,3 or 5 with 3's occurring at the odious indices given by A091855 and 5's occurring at twice these odious indices.

1, 3, 5, 1, 3, 1, 1, 3, 5, 1, 1, 3, 1, 3, 5, 1, 3, 1, 1, 3, 1, 3, 5, 1, 1, 3, 5, 1, 3, 1, 1, 3, 5, 1, 1, 3, 1, 3, 5, 1, 1, 3, 5, 1, 3, 1, 1, 3, 1, 3, 5, 1, 3, 1, 1, 3, 5, 1, 1, 3, 1, 3, 5, 1, 3, 1, 1, 3, 1, 3, 5, 1, 1, 3, 5, 1, 3, 1, 1, 3, 1, 3, 5, 1, 3, 1, 1

Offset: 0

Author

Paul Barry, Jan 10 2007

Keywords

• nonn
• base

Crossrefs

Row sums of triangle A127249.

Cf. A000069, A091855.

Programs

Mathematica

a[n_] := If[OddQ[DigitCount[n, 2, 1]], If[EvenQ[IntegerExponent[n, 2]], 3, 5], 1]; Array[a, 100, 0] (* Amiram Eldar, Aug 04 2023 *)

Extensions

More terms from Amiram Eldar, Aug 04 2023