function -1 function IsMember Math Sqrt -eq -or Math Ceiling Math Floo

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
function f ($x) {
($x -1)*2
}
function IsMember ($x) {
$y = [Math]::Sqrt((f $x))
$x -eq 1 -or (([Math]::Ceiling($y) - 1) * ([Math]::Floor($y) + 1)) -eq (f $x)
}
PS C:\Users\Gebb> 1..30 |%{ "{0} {1}" -f $_, (IsMember $_)}
1 True
2 True
3 False
4 True
5 False
6 False
7 True
8 False
9 False
10 False
11 True
12 False
13 False
14 False
15 False
16 True
17 False
18 False
19 False
20 False
21 False
22 True
23 False
24 False
25 False
26 False
27 False
28 False
29 True
30 False