|
| |
|
|
A136417
|
|
Number of squares <= 2^n.
|
|
2
|
|
|
|
2, 2, 3, 3, 5, 6, 9, 12, 17, 23, 33, 46, 65, 91, 129, 182, 257, 363, 513, 725, 1025, 1449, 2049, 2897, 4097, 5793, 8193, 11586, 16385, 23171, 32769, 46341, 65537, 92682, 131073, 185364, 262145, 370728, 524289, 741456, 1048577, 1482911, 2097153
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,1
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
|
|
|
FORMULA
|
a(n) = 1 + A017910(n). - R. J. Mathar, Apr 04 2008
|
|
|
MATHEMATICA
|
1 + Floor[(Sqrt[2])^Range[0, 50]] (* Vincenzo Librandi, Aug 06 2014 *)
|
|
|
PROG
|
(PARI) a(n) = for(k=0, 2^(n+1), if(k^2 > 2^n, return(k)))
vector(50, n, a(n-1)) \\ Derek Orr, Aug 05 2014
(MAGMA) [1+Floor(Sqrt(2^n)): n in [0..45]]; // Vincenzo Librandi, Aug 06 2014
|
|
|
CROSSREFS
|
Cf. A000079.
Sequence in context: A020999 A079955 A192928 * A322787 A130791 A133277
Adjacent sequences: A136414 A136415 A136416 * A136418 A136419 A136420
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Giovanni Teofilatto, Apr 01 2008
|
|
|
EXTENSIONS
|
More terms from R. J. Mathar, Apr 04 2008
|
|
|
STATUS
|
approved
|
| |
|
|
