

A051204


Nonnegative numbers of the form x^22^y.


22



0, 1, 2, 3, 4, 5, 7, 8, 9, 12, 14, 15, 16, 17, 20, 21, 23, 24, 28, 32, 33, 34, 35, 36, 41, 45, 47, 48, 49, 56, 57, 60, 62, 63, 64, 65, 68, 73, 77, 79, 80, 84, 89, 92, 96, 97, 98, 99, 105, 112, 113, 117, 119, 120, 128, 129, 132, 136, 137, 140, 142, 143, 144, 153, 161, 164
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


LINKS

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


EXAMPLE

5 is in the sequence because 5 can be written as 3^22^2


MATHEMATICA

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


CROSSREFS

Cf. A051213.
Sequence in context: A287927 A241480 A211656 * A278181 A232566 A192649
Adjacent sequences: A051201 A051202 A051203 * A051205 A051206 A051207


KEYWORD

nonn


AUTHOR

David W. Wilson


EXTENSIONS

Corrected by Henry Bottomley, Jul 24 2000


STATUS

approved



