|
|
A030140
|
|
The nonsquares squared.
|
|
6
|
|
|
4, 9, 25, 36, 49, 64, 100, 121, 144, 169, 196, 225, 289, 324, 361, 400, 441, 484, 529, 576, 676, 729, 784, 841, 900, 961, 1024, 1089, 1156, 1225, 1369, 1444, 1521, 1600, 1681, 1764, 1849, 1936, 2025, 2116, 2209, 2304, 2500, 2601, 2704, 2809, 2916, 3025
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(1)=2^2, a(2)=3^2, a(3)=5^2, a(4)=6^2, a(5)=7^2, ..., a(n)=(integer which is not a perfect square)^2.
|
|
MAPLE
|
a:=proc(n) if type(sqrt(n), integer)=false then n^2 else fi end: seq(a(n), n=1..70); # Emeric Deutsch, Apr 11 2007
|
|
MATHEMATICA
|
a[n_] := (n + Floor[1/2 + Sqrt[n]])^2;
|
|
PROG
|
(Magma) [(n + Floor(1/2 + Sqrt(n)))^2: n in [1..60]]; // Vincenzo Librandi, Apr 06 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|