id:A065962 - OEIS Search Results

Search: id:A065962

Displaying 1-1 of 1 results found.

page 1

See Mathematica program.

+0
1

1, 2, 4, 7, 12, 18, 26, 36, 48, 64, 83, 107, 136, 169, 209, 256, 311, 376, 451, 539, 639, 755, 889, 1044, 1220, 1420, 1644, 1904, 2196, 2524, 2894, 3313, 3780, 4307, 4898, 5553, 6286, 7104, 8015, 9025, 10147, 11393, 12769, 14293, 15971, 17832 (list; graph; listen)

	OFFSET	`1,2`
	COMMENT	`Generated by incorrect Mathematica program for A006508.`
	MATHEMATICA	`g[ n_Integer ] := (k = n + PrimePi[ n ] + 1; While[ k - PrimePi[ k ] - 1, k++ ]; k); NestList[ g, 1, 50 ]`
	CROSSREFS	`Sequence in context: A135901 A124197 A011909 this_sequence A049703 A002621 A033500` `Adjacent sequences: A065959 A065960 A065961 this_sequence A065963 A065964 A065965`
	KEYWORD	`nonn`
	AUTHOR	`Labos E. (labos(AT)ana.sote.hu), Dec 08 2001`

page 1

Search completed in 0.002 seconds

Last modified November 24 23:16 EST 2009. Contains 167481 sequences.

AT&T Labs Research