This site is supported by donations to The OEIS Foundation.

 Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS". Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A075038 Primes for which the six closest primes are smaller. 7
 1327, 14563, 15683, 19609, 22307, 25471, 31397, 33647, 35617, 39251, 43801, 44293, 49559, 69263, 69499, 76003, 79699, 81569, 82073, 85853, 88681, 88819, 89689, 95819, 102701, 118931, 124367, 132547, 132763, 140009, 142993, 143833 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS EXAMPLE The six closest primes to 1327 are 1321 (difference = 6), 1319 (difference = 8), 1307 (different = 20), 1303 (difference = 24), 1301 (difference =26) and 1297 (difference = 30). 1321, 1319, 1307, 1303, 1301 and 1297 are all smaller than 1327, so 1327 is in the list. MATHEMATICA NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; ps = {0, 0, 0, 0, 0, 0, 0, 1}; Do[ps = Drop[ps, 1]; ps = Append[ps, NextPrim[ ps[[ -1]]]]; If[ ps[[ -1]] - ps[[ -2]] > ps[[ -2]] - ps[[1]], Print[ ps[[ -2]]]], {n, 1, 13872}] CROSSREFS Cf. A001223, A074979, A074982, A075030, A075037, A075043, A075050 and A075051. Sequence in context: A075037 A134116 A122390 * A082889 A109568 A235234 Adjacent sequences:  A075035 A075036 A075037 * A075039 A075040 A075041 KEYWORD nonn AUTHOR Neil Fernandez, Oct 10 2002 EXTENSIONS Edited by Robert G. Wilson v, Oct 11 2002 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.