OFFSET
1,1
COMMENTS
LINKS
EXAMPLE
Table begins:
4 6 9 10 14 15 21 22 25 26 33 34 35 38 39 46 49 51 55 57 58 62 65 69 74 77 82 85
2 3 1 4 1 6 1 3 1 7 1 1 3 1 7 3 2 4 2 1 4 3 4 5 3 5 3
1 2 3 3 5 5 2 2 6 6 0 2 2 6 4 1 2 2 1 3 1 1 1 2 2 2
1 1 0 2 0 3 0 4 0 6 2 0 4 2 3 1 0 1 2 2 0 0 1 0 0
0 1 2 2 3 3 4 4 6 4 2 4 2 1 2 1 1 1 0 2 0 1 1 0
1 1 0 1 0 1 0 2 2 2 2 2 1 1 1 0 0 1 2 2 1 0 1
0 1 1 1 1 1 2 0 0 0 0 1 0 0 1 0 1 1 0 1 1 1
1 0 0 0 0 1 2 0 0 0 1 1 0 1 1 1 0 1 1 0 0
1 0 0 0 1 1 2 0 0 1 0 1 1 0 0 1 1 0 1 0
1 0 0 1 0 1 2 0 1 1 1 0 1 0 1 0 1 1 1
1 0 1 1 1 1 2 1 0 0 1 1 1 1 1 1 0 0
1 1 0 0 0 1 1 1 0 1 0 0 0 0 0 1 0
0 1 0 0 1 0 0 1 1 1 0 0 0 0 1 1
1 1 0 1 1 0 1 0 0 1 0 0 0 1 0
0 1 1 0 1 1 1 0 1 1 0 0 1 1
1 0 1 1 0 0 1 1 0 1 0 1 0
1 1 0 1 0 1 0 1 1 1 1 1
0 1 1 1 1 1 1 0 0 0 0
1 0 0 0 0 0 1 0 0 0
1 0 0 0 0 1 1 0 0
1 0 0 0 1 0 1 0
1 0 0 1 1 1 1
1 0 1 0 0 0
1 1 1 0 0
0 0 1 0
0 1 1
1 0
1
etc.
MATHEMATICA
SemiPrimePi[n_] := Sum[ PrimePi[n/Prime[i]] - i + 1, {i, PrimePi[ Sqrt[n]]}]; SemiPrime[n_] := Block[{e = Floor[Log[2, n] + 1], a, b}, a = 2^e; Do[b = 2^p; While[SemiPrimePi@a < n, a = a + b]; a = a - b/2, {p, e, 0, -1}]; a + b/2]; t[0, n_] := SemiPrime[n]; t[r_, c_] := Abs[t[r - 1, c] - t[r - 1, c + 1]]; Table[t[r - c, c], {r, 13}, {c, r}] // Flatten
(* to construct the table as shown *) mx = 13; Table[t[r, c], {r, 0, mx - 1}, {c, mx - r}] // TableForm (* Robert G. Wilson v, Jun 13 2018 *)
CROSSREFS
KEYWORD
AUTHOR
Jonathan Vos Post, Oct 23 2007
STATUS
approved