A191233 The number of times that the n-th digit of A154703(n) occurs in A154703(n).

1, 1, 5, 8, 11, 4, 16, 19, 23, 27, 32, 14, 38, 42, 47, 51, 23, 61, 64, 31, 35, 37, 80, 84, 47, 50, 96, 101, 106, 59, 117, 120, 123, 127, 131, 136, 83, 145, 150, 155, 160, 165, 172, 175, 109, 112, 189, 116, 201, 206, 125, 218, 129, 130, 232, 236, 147, 245, 156

Offset

1,3

Links

Nathaniel Johnston, Table of n, a(n) for n = 1..5000

Example

A154703(3) = 1011101. The third digit of 1011101 is "1", which occurs 5 times in 1011101. Thus a(3) = 5.
A154703(4) = 1011101111. The fourth digit of 1011101111 is "1", which occurs 8 times in 1011101111. Thus a(4) = 8.

Maple

with(StringTools): lim:=100: s:="": for j from 1 to lim do p:=ithprime(j): d:=convert(p, base, 2): for k from nops(d) to 1 by -1 do s:=cat(s, d[k]): od: printf("%d, ", nops([SearchAll(s[j], s)])); od: # Nathaniel Johnston, May 27 2011

Mathematica

Module[{p = IntegerDigits[Prime[Range[100]], 2], d}, Array[Count[d = Flatten[p[[;; #]]], d[[#]]] &, Length[p]]] (* Paolo Xausa, Feb 26 2024 *)

Crossrefs

Cf. A004676, A154703, A190480, A191248.

Sequence in context: A072524 A240968 A187878 * A314386 A189577 A047700

Adjacent sequences: A191230 A191231 A191232 * A191234 A191235 A191236

Keyword

nonn,easy,base

Author

Juri-Stepan Gerasimov, May 27 2011

Extensions

Corrected and extended by Nathaniel Johnston, May 27 2011

Status

approved