login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A081228 Partial sums of A081227. 2

%I #5 Feb 27 2009 03:00:00

%S 0,0,0,0,0,0,1,1,1,1,2,2,3,4,4,4,4,5,5,5,5,5,6,6,6,6,6,6,7,8,9,10,11,

%T 12,12,12,13,14,14,14,15,15,15,15,15,15,15,15,15,15,15,16,16,17,18,19,

%U 19,19,19,19,19,20,21,21,21,21,21,21,21,21,21,21,23,24,25,25,25,26,26,27

%N Partial sums of A081227.

%e a(25)=6 since A081227[1..25] has 6 ones and 19 zeros.

%p digcomp := proc(A,B) local a,b,crit,f; description "returns the digits that 'A' and 'B' have in common; if a third argument is given and it is 'sum' then the sum of the common digits is returned, else if it is 'num' then the number of common digits is returned."; if nargs>2 then crit := args[3] else crit := NULL fi; a := convert(`if`(A=0,[0],(convert(A,base,10))),set); b := convert(`if`(B=0,[0],(convert(B,base,10))),set); f := a intersect b; if crit=sum then return `if`(nops(f)>0,`+`(op(f)),-1) elif crit=num then return nops(f) else return f; fi; end proc; ListTools[PartialSums]([seq(digcomp(i,ithprime(i),num),i=1..200)]);

%Y Cf. A081227, A081229.

%K base,easy,nonn

%O 1,11

%A Francois Jooste (pin(AT)myway.com), Mar 11 2003

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 05:48 EDT 2024. Contains 371265 sequences. (Running on oeis4.)