OFFSET
1,2
COMMENTS
The terms listed in the Data section are numbers of the form 2^i or 3^ceiling(j*(1 + sqrt(2))), i >= 2, j >= 0 (empirical observation).
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..4190
Michael De Vlieger, 256 X 256 pixel bitmap showing black if 3 | a(n) else white for n = 1..2^16, read in rows from left to right, stacked top to bottom.
MATHEMATICA
pp = 4; nn = 2^29; j = 0; c = e[_] = 1; r = Prime@ Range[pp];
Do[(e[#1]++; Set[{k, m}, {#1^#2, #1^(#2 - 1)}]) & @@
First@ MinimalBy[Array[{#, e[#]} &[r[[#]]] &, pp], Power @@ # &];
If[m > j, Set[{a[c], j}, {k, m}]; c++];
If[k > nn/2, Break[]], {n, Infinity}];
{1}~Join~Array[a, c - 2, 2] (* Michael De Vlieger, Mar 11 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Apr 16 2020
STATUS
approved