A242036 Smallest k such that in the interval [1,k] in A242033 all odd primes <= prime(n) are present.

1, 4, 9, 54, 54, 88, 88, 220, 220, 444, 444, 570, 570, 570, 896, 1510, 1510, 1510, 1510, 1695, 2065, 2249, 2249, 2968, 2968, 2968, 2968, 3341, 4561, 4561, 4561, 4942, 4942, 6471, 6471, 6471, 7158, 9202, 9202, 10915, 10915, 10915, 10915, 12312, 12312, 12312

Offset

2,2

Links

Table of n, a(n) for n=2..47.

Mathematica

lpf[n_]:=lpf[n]=First[First[FactorInteger[n]]]; (* least prime factor *)
A242033=Map[lpf[#-1]&, Select[Range[6, 100000, 2], lpf[#-1]<lpf[#-3]&](*A245024*)];
pos={}; NestWhile[#+1&, 2, (AppendTo[pos, Position[A242033, Prime[#], 1, 1]]; !Last[pos]=={})&];
A242036=Rest[FoldList[Max, -Infinity, Flatten[pos]]] (* Peter J. C. Moses, Aug 14 2014 *)

Crossrefs

Cf. A245024, A243937, A242033, A242034.

Sequence in context: A368634 A009276 A086692 * A069507 A219894 A203464

Adjacent sequences: A242033 A242034 A242035 * A242037 A242038 A242039

Keyword

nonn

Author

Vladimir Shevelev, Aug 12 2014

Extensions

More terms from Peter J. C. Moses, Aug 12 2014

Status

approved