id:A111048 - OEIS Search Results

Search: id:A111048

Displaying 1-1 of 1 results found.

page 1

a(n) = least i such that prime(n)/prime(n+1) < 1 - 1/i.

+0
1

4, 3, 4, 3, 7, 5, 10, 6, 5, 16, 7, 11, 22, 12, 9, 10, 31, 12, 18, 37, 14, 21, 15, 13, 26, 52, 27, 55, 29, 10, 33, 23, 70, 15, 76, 27, 28, 42, 29, 30, 91, 20, 97, 50, 100, 18, 19, 57, 115, 59, 40, 121, 26, 43, 44, 45, 136, 47, 71, 142, 30, 22, 78, 157, 80, 24, 57, 35, 175, 89, 60, 46 (list; graph; listen)

	OFFSET	`1,1`
	MATHEMATICA	`f[n_] := Module[{a, b, i = 1}, a = Prime[n]; b = Prime[n + 1]; While[a/b >= 1 - 1/i, i = i + 1]; i]; Table[f[i], {i, 1, 100}]`
	CROSSREFS	`Sequence in context: A108171 A106055 A103947 this_sequence A016700 A088910 A010308` `Adjacent sequences: A111045 A111046 A111047 this_sequence A111049 A111050 A111051`
	KEYWORD	`nonn`
	AUTHOR	`Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Oct 06 2005`

page 1

Search completed in 0.002 seconds

Last modified December 9 18:50 EST 2009. Contains 170568 sequences.

AT&T Labs Research