id:A096830 - OEIS Search Results

Search: id:A096830

Displaying 1-1 of 1 results found.

page 1

Number of primes in neighborhood with center=n! and radius=Ceiling[Log[n! ]].

+0
10

0, 2, 2, 1, 0, 2, 1, 0, 1, 2, 4, 3, 1, 3, 0, 1, 1, 1, 0, 3, 5, 1, 0, 0, 1, 2, 4, 1, 3, 1, 1, 2, 4, 0, 2, 0, 2, 5, 2, 5, 2, 4, 4, 5, 3, 3, 1, 5, 3, 3, 0, 3, 4, 1, 3, 2, 1, 1, 1, 1, 1, 3, 2, 2, 2, 0, 3, 2, 4, 4, 0, 4, 4, 2, 3, 5, 3, 1, 1, 8, 1, 2, 2, 1, 2, 2, 0, 1, 3, 5, 2, 2, 4, 2, 5, 3, 5, 2, 5, 2, 2, 1, 0, 1, 0 (list; graph; listen)

	OFFSET	`1,2`
	FORMULA	`a[n]=A096509[n! ]=A096509[A000142(n)]`
	EXAMPLE	`n=8,8!=40320,radius=11,a[8]=0 because no primes in the neighborhood.`
	MATHEMATICA	`{ta=Table[0, {1000}], u=1}; Do[s=Count[Table[PrimeQ[n!+i], {i, -Ceiling[Log[n! ]//N], Ceiling[Log[n! ]//N]}], True]; Print[{n, s}]; ta[[u]]=s; u=u+1, {n, 1, 1000}]; ta`
	CROSSREFS	`Cf. A096509-A096523, A000142.` `Adjacent sequences: A096827 A096828 A096829 this_sequence A096831 A096832 A096833` `Sequence in context: A133624 A030110 A083570 this_sequence A001617 A143667 A084934`
	KEYWORD	`nonn`
	AUTHOR	`Labos E. (labos(AT)ana.sote.hu), Jul 14 2004`

page 1

Search completed in 0.002 seconds

Last modified October 13 09:05 EDT 2008. Contains 145008 sequences.

AT&T Labs Research