Sequence of non-squares: Difference between revisions

Added 11l
(Add MAD)
(Added 11l)
Line 10:
This is sequence   [[oeis:A000037|A000037]]   in the '''OEIS''' database.
<br><br>
 
=={{header|11l}}==
{{trans|Python}}
 
<lang 11l>F non_square(Int n)
R n + Int(floor(1/2 + sqrt(n)))
 
print_elements((1..22).map(non_square))
 
F is_square(n)
R fract(sqrt(n)) == 0
 
L(i) 1 .< 10 ^ 6
I is_square(non_square(i))
print(‘Square found ’i)
L.break
L.was_no_break
print(‘No squares found’)</lang>
 
{{out}}
<pre>
2 3 5 6 7 8 10 11 12 13 14 15 17 18 19 20 21 22 23 24 26 27
No squares found
</pre>
 
=={{header|Ada}}==
1,481

edits