id:A080339 - OEIS Search Results

Search: id:A080339

Displaying 1-1 of 1 results found.

page 1

Characteristic function of {1} union {primes}: 1 if n is 1 or a prime, else 0.

+0
6

1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0 (list; graph; listen)

	OFFSET	`1,1`
	COMMENT	`Partial sums of a(n) in A036234. [From Jaroslav Krizek (jaroslav.krizek(AT)atlas.cz), Mar 23 2009]`
	LINKS	`Index entries for characteristic functions` `Eric Weisstein's World of Mathematics, Prime Formulas`
	FORMULA	`a(n)=Sum_digits{binomial(n! mod (n+1),n)}, with n>=0 - Paolo P. Lava (ppl(AT)spl.at), Apr 24 2007`
	MAPLE	`P:=proc(n) local i, k, w; for i from 0 by 1 to n do w:=0; k:=binomial(i! mod (i+1), i); while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; print(w); od; end: P(1000); - Paolo P. Lava (ppl(AT)spl.at), Apr 24 2007`
	CROSSREFS	`Cf. A010051, A080355.` `Cf. A036234. [From Jaroslav Krizek (jaroslav.krizek(AT)atlas.cz), Mar 23 2009]` `Sequence in context: A082416 A093996 A083187 this_sequence A167752 A100923 A050073` `Adjacent sequences: A080336 A080337 A080338 this_sequence A080340 A080341 A080342`
	KEYWORD	`nonn`
	AUTHOR	`N. J. A. Sloane (njas(AT)research.att.com), Mar 21 2003`

page 1

Search completed in 0.002 seconds

Last modified December 6 22:55 EST 2009. Contains 170429 sequences.

AT&T Labs Research