OFFSET
1,2
COMMENTS
No other terms below 10^15. A larger term: 783847656467936404. - Max Alekseyev, Oct 16 2016
MATHEMATICA
Select[Range[1000000], IntegerQ[(PowerMod[5, #, # ]+3)/# ]&]
PROG
(PARI) is(n)=Mod(5, n)^n==-3 \\ Charles R Greathouse IV, Apr 06 2014
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Alexander Adamchuk, Nov 04 2006
EXTENSIONS
a(10)-a(13) from Ryan Propper, Dec 30 2006, Jan 02 2007
More terms from Lars Blomberg, Nov 25 2011
Terms a(14) onwards were reported incorrect by Toshitaka Suzuki, and have been deleted. - N. J. A. Sloane, Mar 18 2014
a(14)-a(17) from Toshitaka Suzuki, Mar 18 2014, Apr 03 2014
a(18)-a(21) from Max Alekseyev, Oct 16 2016
STATUS
approved