OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
map(c -> 2&^(c-1) mod c^2, remove(isprime, [$4..1000])); # Robert Israel, Feb 27 2018
MATHEMATICA
composite[n_Integer] := FixedPoint[n + PrimePi@ # + 1 &, n + PrimePi@ n + 1]; Array[With[{c = composite@ #}, Mod[2^(c - 1), c^2]] &, 52] (* Michael De Vlieger, Jan 31 2018, composite function by Robert G. Wilson v at A066277 *)
PROG
(PARI) forcomposite(c=1, 200, print1(lift(Mod(2, c^2)^(c-1)), ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Felix Fröhlich, Jan 30 2018
STATUS
approved