OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..400
MATHEMATICA
Join[{1, 2}, Select[Range[17*10^5], PowerMod[3, #, #]==#-3&]] (* Harvey P. Dale, Mar 31 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Terms 1, 2 inserted by Max Alekseyev, Nov 24 2017
STATUS
approved