|
Search: id:A126283
|
|
|
| A126283 |
|
Largest number k for which the n-th prime is the median of the largest prime dividing the first k integers. |
|
+0
2
|
|
| 4, 18, 40, 76, 116, 182, 246, 330, 426, 532, 652, 770, 904, 1058, 1210, 1386, 1560, 1752, 1956, 2162, 2394, 2640, 2894, 3150, 3422, 3680, 3984, 4302, 4628, 4974, 5294, 5650, 5914, 6006, 6372, 6746, 7146, 7536, 7938, 8386, 8794, 9222, 9702, 10156
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
a(1)=4 because the median of {2,3,2} = {2, *2*,3} is 2 (the * surrounds the median) and for any number greater than 4 the median is greater than 2.
a(1)=18 because the median of {2,3,2,5,3,7,2,3,5,11,3,13,7,5,2,17,3} = {2,2,2,2,3,3,3,3, *3*,5,5,5,7,7,11,13,17}.
|
|
MATHEMATICA
|
t = Table[0, {100}]; lst = {}; Do[lpf = FactorInteger[n][[ -1, 1]]; AppendTo[lst, lpf]; mdn = Median@lst; If[PrimeQ@ mdn, t[[PrimePi@mdn]] = n], {n, 2, 10^4}]; t
|
|
CROSSREFS
|
Cf. A000040, A124202.
Sequence in context: A009956 A031303 A062235 this_sequence A023618 A115077 A066153
Adjacent sequences: A126280 A126281 A126282 this_sequence A126284 A126285 A126286
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Mark Thornquist (mthornqu(AT)fhcrc.org) & Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 15 2006
|
|
|
Search completed in 0.002 seconds
|
