OFFSET
1,2
EXAMPLE
Triangle begins:
1;
2, 2;
0, 4, 4;
0, 2, 8, 8;
0, 4, 7, 6, 2;
...
MATHEMATICA
Table[PowerMod[2, n-1, #[[;; n]]], {n, Length[#]}] & [Select[Range[50], PrimeOmega[#] == 2 &]] (* Paolo Xausa, Jun 29 2024 *)
PROG
(PARI) trg(nn) = {semip = select(n->bigomega(n) == 2, vector(nn, i, i)); for (n = 1, #semip, for (k = 1, n, print1(2^(n-1) % semip[k], ", "); ); print(); ); } \\ Michel Marcus, Sep 11 2013
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Juri-Stepan Gerasimov, Dec 02 2010
EXTENSIONS
Corrected by T. D. Noe, Dec 02 2010
STATUS
approved