1,3

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

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

Quoss Wimblik, A new numeral system

# 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);

Sequence in context: A245370 A321341 A284549 * A286558 A023990 A117894

Adjacent sequences: A200776 A200777 A200778 * A200780 A200781 A200782

nonn

N. J. A. Sloane, Nov 22 2011

approved