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,1

Links

Table of n, a(n) for n=1..73.

Example

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.

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 *)

Crossrefs

Cf. A129227.

Sequence in context: A120839 A332525 A196608 * A228587 A021395 A004599

Adjacent sequences: A129225 A129226 A129227 * A129229 A129230 A129231

Keyword

easy,nonn

Author

Axel Harvey, Apr 04 2007

Extensions

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

Status

approved