A127250 - OEIS

%I #7 Aug 04 2023 04:35:29

%S 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,

%T 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,

%U 1,3,5,1,1,3,5,1,3,1,1,3,1,3,5,1,3,1,1

%N 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.

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

%Y Row sums of triangle A127249.

%Y Cf. A000069, A091855.

%K nonn,base

%O 0,2

%A _Paul Barry_, Jan 10 2007

%E More terms from _Amiram Eldar_, Aug 04 2023