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,2

Links

Table of n, a(n) for n=0..86.

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 *)

Crossrefs

Row sums of triangle A127249.

Cf. A000069, A091855.

Sequence in context: A281494 A226278 A005699 * A350882 A230407 A137759

Adjacent sequences: A127247 A127248 A127249 * A127251 A127252 A127253

Keyword

nonn,base

Author

Paul Barry, Jan 10 2007

Extensions

More terms from Amiram Eldar, Aug 04 2023

Status

approved