id:A087881 - OEIS Search Results

Search: id:A087881

Displaying 1-1 of 1 results found.

page 1

a(n) = Prime[Prime[n-1]] + PrimePi[Abs[n - PrimePi[n-1]]]

+0
1

4, 6, 12, 19, 33, 43, 61, 70, 86, 113, 131, 161, 183, 195, 215, 246, 282, 288, 336, 359, 373, 407, 437, 467, 516, 554, 571, 595, 607, 625, 717, 747, 782, 806, 868, 886, 928, 976, 1000, 1041, 1073, 1097, 1163, 1182, 1212, 1228, 1308, 1420, 1444, 1458, 1483 (list; graph; listen)

	OFFSET	`2,1`
	COMMENT	`Purely functional sequence undefined for n=1 based on the primes in a reinversion pattern based on A004001.`
	MATHEMATICA	`prid[n_Integer?Positive] := prid[n] =Prime[Prime[n-1]] + PrimePi[Abs[n - PrimePi[n-1]]] digits=256 a=Table[prid[n], {n, 2, digits}]`
	CROSSREFS	`Cf. A004001.` `Sequence in context: A027856 A048641 A023599 this_sequence A063607 A045956 A057339` `Adjacent sequences: A087878 A087879 A087880 this_sequence A087882 A087883 A087884`
	KEYWORD	`nonn`
	AUTHOR	`Roger L Bagula (rlbagulatftn(AT)yahoo.com), Oct 12 2003`

page 1

Search completed in 0.002 seconds

Last modified November 25 20:09 EST 2009. Contains 167514 sequences.

AT&T Labs Research