A281002 Square array read by antidiagonals downwards: A(n, 1) = second Wieferich prime to base n and A(n, k) = second Wieferich prime to base A(n, k-1) for k > 1.

3511, 19, 1006003, 7, 11, 3511, 491531

Offset

2,1

Links

Table of n, a(n) for n=2..8.

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

Cf. A178871, A281001.

Sequence in context: A338392 A342399 A043448 * A273472 A268352 A178871

Adjacent sequences: A280999 A281000 A281001 * A281003 A281004 A281005

Keyword

nonn,tabl,more

Author

Felix Fröhlich, Jan 12 2017

Status

approved