

A051208


Numbers of the form x^26^y >= 0.


3



0, 3, 8, 9, 10, 13, 15, 19, 24, 28, 30, 35, 40, 43, 45, 48, 58, 63, 64, 73, 75, 80, 85, 94, 99, 108, 115, 120, 133, 138, 143, 145, 148, 160, 163, 168, 184, 189, 190, 195, 219, 220, 224, 225, 250, 253, 255, 268, 283, 288, 304, 313, 318, 323, 324, 325, 355, 360, 364, 385, 394, 399
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

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


MATHEMATICA

max = 400; Clear[f]; f[m_] := f[m] = Select[Table[x^2  6^y, {y, 0, m}, {x, Floor[6^(y/2)], Ceiling[Sqrt[6^y + max]]}] // Flatten // Union, 0 <= # <= max &]; f[1]; f[m = 2]; While[f[m] != f[m  1], m++]; Print["m = ", m]; A051208 = f[m] (* JeanFrançois Alcover, May 13 2017 *)


CROSSREFS

Sequence in context: A276006 A091767 A024549 * A211223 A247544 A080524
Adjacent sequences: A051205 A051206 A051207 * A051209 A051210 A051211


KEYWORD

nonn


AUTHOR

David W. Wilson


STATUS

approved



