A129228 a(n) is that prime number p less than n*Pi such that n*Pi/p has the largest fractional part.

2, 5, 5, 7, 2, 5, 11, 13, 17, 11, 7, 19, 7, 11, 17, 17, 11, 19, 5, 7, 11, 7, 37, 19, 41, 41, 17, 11, 23, 19, 7, 17, 13, 37, 11, 19, 59, 61, 41, 7, 43, 11, 17, 71, 71, 29, 37, 19, 11, 79, 23, 41, 43, 17, 29, 11, 61, 61, 31, 97, 97, 13, 11, 101, 103, 13, 53, 107, 31, 11, 113, 19, 23

Offset: 1

Author

Axel Harvey, Apr 04 2007

Keywords

• easy
• nonn

Examples

			a(14)=11 because 14*Pi/11 = 3.998... and the fractional part 0.998... represents the greatest remainder resulting from the division of 14*Pi by a prime number less than 14*Pi.
		

Crossrefs

Cf. A129227.

Programs

Mathematica

f[n_] := Denominator[ Max[ FractionalPart[(n*Pi / Prime@ Range@ PrimePi@ Floor[n*Pi - 1])]] [[2]]]; Array[f, 73] (* Robert G. Wilson v, Apr 08 2007 *)

Extensions

Edited and extended by Robert G. Wilson v, Apr 08 2007