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

Author

Vladimir Shevelev, Aug 12 2014

Keywords

• nonn

Crossrefs

Cf. A245024, A243937, A242033, A242034.

Programs

Mathematica

lpf[n_]:=lpf[n]=First[First[FactorInteger[n]]]; (* least prime factor *)
A242033=Map[lpf[#-1]&,Select[Range[6,100000,2],lpf[#-1]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 *)

Extensions

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