OFFSET
2,1
EXAMPLE
Array starts:
3511, 19, 7, 491531, ...
1006003, 11, ...
3511, 19, 7, 491531, ...
20771, 18043, ...
534851, 5, 20771, 18043, ...
PROG
(PARI) secondwieftobase(n) = my(i=0); forprime(p=1, , if(Mod(n, p^2)^(p-1)==1, if(i==0, i++, return(p))))
table(rows, cols) = for(x=2, rows+1, my(i=0, w=secondwieftobase(x)); while(i < cols, print1(w, ", "); w=secondwieftobase(w); i++); print(""))
table(2, 3)
CROSSREFS
KEYWORD
AUTHOR
Felix Fröhlich, Jan 12 2017
STATUS
approved