A043703 Numbers whose base-14 representation has an even number of runs.
14, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 76, 77, 78
Offset: 1
Links
- David A. Corneth, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
Select[Range[80],EvenQ[Length[Split[IntegerDigits[#,14]]]]&] (* Harvey P. Dale, Aug 30 2020 *)
-
PARI
is(n) = qstreaks(n)%2 == 0 qstreaks(n, {b = 14}) = {my(d = digits(n, b)); sum(i = 2, #d, d[i]!=d[i-1])+1} \\ David A. Corneth, Aug 31 2020