|
|
A196272
|
|
Number of occurrences of '11' in base-4 expansion of n.
|
|
1
|
|
|
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 3
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,22
|
|
COMMENTS
|
Records occur at places where n = '111...11' in base b, that is n = (b^(k+1)-1)/(b-1) for some k > 0, in particular for b=4 as listed in A002450(k+1). - R. J. Mathar, Sep 30 2011
|
|
LINKS
|
|
|
EXAMPLE
|
a(21) = 2 because 21 (base 10) = 111 (base 4), whose first two digits are 1's, and whose rightmost two digits are the second substring of "11".
|
|
MAPLE
|
local a, dgs ;
a := 0 ;
dgs := convert(n, base, 4) ;
for i from 1 to nops(dgs)-1 do
if op(i, dgs)=1 and op(i+1, dgs)=1 then
a := a+1 ;
end if;
end do;
a ;
end proc:
|
|
MATHEMATICA
|
Table[d = IntegerDigits[n, 4]; Count[Partition[d, 2, 1], {1, 1}], {n, 0, 100}] (* T. D. Noe, Sep 30 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|