OFFSET
1,3
COMMENTS
LINKS
T. D. Noe, Rows n = 1..60, flattened
EXAMPLE
The first 9 rows are:
1
1, 2
0
1, 5, 4, 6, 2, 3
1, 5, 3, 4, 9
1, 5, 12, 8
1, 5, 8, 6, 13, 14, 2, 10, 16, 12, 9, 11, 4, 3, 15, 7
1, 5, 6, 11, 17, 9, 7, 16, 4
1, 5, 2, 10, 4, 20, 8, 17, 16, 11, 9, 22, 18, 21, 13, 19, 3, 15, 6, 7, 12, 14
MATHEMATICA
nn = 10; p = 5; t = p^Range[0, Prime[nn]]; Flatten[Table[If[Mod[n, p] == 0, {0}, tm = Mod[t, n]; len = Position[tm, 1, 1, 2][[-1, 1]]; Take[tm, len-1]], {n, Prime[Range[nn]]}]]
PROG
(GAP) P:=Filtered([1..350], IsPrime);;
R:=List([1..Length(P)], n->OrderMod(5, P[n]));;
Flat(Concatenation([1, 1, 2, 0], List([3..10], n->List([0..R[n]-1], k->PowerMod(5, k, P[n]))))); # Muniru A Asiru, Feb 02 2019
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
T. D. Noe, Dec 07 2011
STATUS
approved