OFFSET
1,2
COMMENTS
LINKS
Arkadiusz Wesolowski, Table of n, a(n) for n = 1..74
MATHEMATICA
x = 3837523; Select[Range[1, 10647, 2], PowerMod[2, EulerPhi[#*x], (#*x)^2] == 1 &]
PROG
(PARI) is(n)=Mod(2, (3837523*n)^2)^eulerphi(3837523*n)==1 \\ Charles R Greathouse IV, Mar 05 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Nov 03 2012
STATUS
approved