OFFSET
1,1
MATHEMATICA
Table[Mod[2^j, FixedPoint[j+PrimePi[ # ]+1&, j]], {j, 1, 128}]
Module[{c=Select[Range[200], CompositeQ], len}, len=Length[c]; Table[ PowerMod[ 2, n, c[[n]]], {n, len}]] (* Harvey P. Dale, Mar 03 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Aug 12 2002
STATUS
approved