OFFSET
2,1
COMMENTS
EXAMPLE
Array starts
1093, 2, 1093, 2, 1093, 2, ...
11, 71, 3, 11, 71, 3, ...
1093, 2, 1093, 2, 1093, 2, ...
2, 1093, 2, 1093, 2, 1093, ...
66161, 2, 1093, 2, 1093, 2, ...
5, 2, 1093, 2, 1093, 2, ...
....
PROG
(PARI) smallestwieftobase(n) = forprime(p=1, , if(Mod(n, p^2)^(p-1)==1, return(p)))
table(rows, cols) = for(x=2, rows+1, my(i=0, w=smallestwieftobase(x)); while(i < cols, print1(w, ", "); w=smallestwieftobase(w); i++); print(""))
table(7, 5) \\ print initial 5 terms of upper 7 rows of array
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Felix Fröhlich, Jan 12 2017
STATUS
approved