OFFSET
1,2
COMMENTS
Row sums are 0, 2, 4, 7, 13, 18, 28, ...
EXAMPLE
Triangle begins:
0,
2,0;
1,3,0;
2,4,1,0;
2,2,5,4,0;
3,3,6,5,1,0;
1,3,3,1,7,6,0;
2,4,4,2,8,7,1,0;
MATHEMATICA
SemiprimeQ[n_Integer] := If[Abs[n]<2, False, (2==Plus@@Transpose[FactorInteger[Abs[n]]][[2]])]; sp = Select[Range[100], SemiprimeQ]; Flatten[Table[Mod[sp[[n]], sp[[Range[n]]]], {n, Length[sp]}]]
CROSSREFS
KEYWORD
AUTHOR
Juri-Stepan Gerasimov, Nov 28 2010
EXTENSIONS
46th term corrected by D. S. McNeil, Nov 24 2010
STATUS
approved