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

Author

Juri-Stepan Gerasimov, May 27 2011

Keywords

• nonn
• easy
• base

Examples

			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.
		

Links

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

Crossrefs

Cf. A004676, A154703, A190480, A191248.

Programs

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

Extensions

Corrected and extended by Nathaniel Johnston, May 27 2011