

A355434


a(n) is the least start of exactly n consecutive numbers k that are sqrt(k)smooth (A048098), or 1 if no such run exists.


1



1, 8, 48, 1518, 5828, 28032, 304260, 290783, 1255500, 4325170, 11135837, 18567909, 321903029, 1394350275, 287946949, 1659945758, 38882519234
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

Table of n, a(n) for n=1..17.


EXAMPLE

a(2) = 8 since 8 and 9 are in A048098, 7 and 10 are not, and 8 is the least number with this property.


MATHEMATICA

smQ[n_] := FactorInteger[n][[1, 1]]^2 <= n; seq[len_, nmax_] := Module[{s = Table[0, {len}], v = {1}, n = 2, c = 0, m}, While[c <= len && n <= nmax, If[smQ[n], v = Join[v, {n}], m = Length[v]; v = {}; If[0 <= m <= len && s[[m]] == 0, c++; s[[m]] = n  m]]; n++]; s]; seq[6, 10^5]


CROSSREFS

Cf. A048098, A355433.
Sequence in context: A181276 A010568 A080493 * A303723 A305226 A304771
Adjacent sequences: A355430 A355431 A355433 * A355435 A355436 A355437


KEYWORD

nonn,more


AUTHOR

Amiram Eldar, Jul 02 2022


STATUS

approved



