|
|
A363191
|
|
a(n) is the least start of a run of exactly n consecutive powerful numbers (A001694) that are even, or -1 if no such run exists.
|
|
3
|
|
|
16, 4, 196, 968, 8712, 437400, 85730400, 5030690600, 264615012500, 5239012864, 550886816376, 2494017320776852
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
No more terms below 10^18.
At most one of the n even consecutive powerful numbers in the run is a perfect square. - David A. Corneth, May 21 2023
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 16, since 16 = 2^4 is an even powerful number, preceded by an odd powerful number, 9 = 3^2, and followed by an odd powerful number, 25 = 5^2.
a(2) = 4, since 4 = 2^2 and 8 = 2^3 are two consecutive even powerful numbers, preceded by an odd powerful number, 1, and followed by an odd powerful number, 9 = 3^2.
|
|
MATHEMATICA
|
seq[lim_] := Module[{pow = Union[Flatten[Table[i^2*j^3, {j, 1, lim^(1/3)}, {i, 1, Sqrt[lim/j^3]}]]], s = {}, rem, ind}, rem = Mod[pow, 2]; Do[ind = SequencePosition[rem, Join[{1}, Table[0, {k}], {1}], 1]; If[ind == {}, Break[]]; AppendTo[s, pow[[ind[[1, 1]] + 1]]], {k, 1, Infinity}]; s]; seq[10^10]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|