login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A242036 Smallest k such that in the interval [1,k] in A242033 all odd primes <= prime(n) are present. 5
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

2,2

LINKS

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

MATHEMATICA

lpf[n_]:=lpf[n]=First[First[FactorInteger[n]]]; (*lesat 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: A060998 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

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 20 22:54 EDT 2019. Contains 325189 sequences. (Running on oeis4.)