id:A073168 - OEIS Search Results

Search: id:A073168

Displaying 1-1 of 1 results found.

page 1

a(n)=A007821(n)-A022449(n). Values of commutator of A000040 and A002808 functions i.e. of Prime[] and Composite[].

+0
3

1, 5, 9, 9, 9, 15, 16, 17, 18, 17, 25, 19, 21, 27, 31, 26, 21, 22, 21, 35, 38, 31, 35, 31, 34, 33, 37, 39, 49, 49, 33, 52, 49, 47, 39, 43, 47, 47, 48, 48, 41, 49, 48, 60, 59, 59, 49, 52, 58, 58, 63, 71, 75, 65, 65, 67, 71, 79, 75, 81, 84, 77, 65, 69, 72, 72, 67, 69, 61, 65, 65 (list; graph; listen)

	OFFSET	`1,2`
	MATHEMATICA	`c[n_Integer] := FixedPoint[n+PrimePi[ # ]+1&, n] Table[Prime[c[w]]-c[Prime[w]], {w, 1, 10000}];`
	CROSSREFS	`Cf. A007821, A022449, A000040, A002808.` `Sequence in context: A086731 A020846 A105643 this_sequence A127500 A057655 A141124` `Adjacent sequences: A073165 A073166 A073167 this_sequence A073169 A073170 A073171`
	KEYWORD	`nonn`
	AUTHOR	`Labos E. (labos(AT)ana.sote.hu), Jul 19 2002`

page 1

Search completed in 0.002 seconds

Last modified December 4 14:15 EST 2008. Contains 151279 sequences.

AT&T Labs Research