login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A200779 a(n) = number of i in the range 1 <= i <= n such that b(i)=b(n), where b is the sequence A053615 taken with offset 1. 1
1, 1, 2, 2, 1, 3, 3, 4, 2, 1, 3, 5, 4, 6, 4, 2, 1, 3, 5, 7, 5, 8, 6, 4, 2, 1, 3, 5, 7, 9, 6, 10, 8, 6, 4, 2, 1, 3, 5, 7, 9, 11, 7, 12, 10, 8, 6, 4, 2, 1, 3, 5, 7, 9, 11, 13, 8, 14, 12, 10, 8, 6, 4, 2, 1, 3, 5, 7, 9, 11, 13, 15, 9, 16, 14, 12, 10, 8, 6, 4, 2, 1, 3, 5, 7, 9, 11, 13, 15, 17, 10, 18, 16, 14, 12, 10, 8, 6, 4, 2, 1, 3, 5, 7 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

COMMENTS

This assumes that the word "digit" in the definition in the Wimblik web page is changed to "number".

LINKS

Table of n, a(n) for n=1..104.

Quoss Wimblik, A new numeral system

MAPLE

# b[n] = number of i <= n such that a[i]=a[n].

FREQ:=proc(a)  local b, i, c, n, t1:

if whattype(a) <> list then RETURN([]); fi:

b:=[];

for n from 1 to nops(a) do

c:=0; t1:=a[n];

for i from 1 to n do if a[i]=t1 then c:=c+1; fi; od:

b:=[op(b), c];

od;

RETURN(b);

end:

# read A053615 as a list called s1

FREQ(s1);

CROSSREFS

Sequence in context: A245370 A321341 A284549 * A286558 A023990 A117894

Adjacent sequences:  A200776 A200777 A200778 * A200780 A200781 A200782

KEYWORD

nonn

AUTHOR

N. J. A. Sloane, Nov 22 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 22 20:23 EDT 2019. Contains 326182 sequences. (Running on oeis4.)