A198469 a(n) is the smallest prime(m) such that the interval (prime(m)*n, prime(m+1)*n) contains exactly seven primes.
1129, 113, 139, 139, 23, 47, 7, 7, 37, 67, 67, 37, 127, 3, 3, 5, 41, 11, 17, 5, 5, 5, 29, 71, 11, 101, 2, 2, 2, 101, 107, 2, 2, 71, 71, 191, 191, 227, 239, 281, 2, 197, 227, 107, 29, 569, 281, 821, 599, 1031, 521, 641, 659, 1229, 569, 1061, 1481, 2657, 641
Offset: 2
Keywords
Examples
Let n=20, and consider intervals of the form (20*prime(m), 20*prime(m+1)). For 2, 3, 5, ..., the intervals (40,60), (60,100), (100,140), (140,220), (220,260), (260,340), (340,380), ... contain 5, 8, 9, 13, 8, 13, 7, ... primes. Hence the smallest such prime is 17.
Links
- Alois P. Heinz, Table of n, a(n) for n = 2..200
Programs
-
Mathematica
a[n_] := Catch[ For[m = 1, True, m++, p = Prime[m]; If[PrimePi[n*Prime[m + 1]] - PrimePi[n*p] == 7, Throw[p]]]]; Table[a[n], {n, 2, 60}] (* Jean-François Alcover, Jan 18 2013 *)
Comments