OFFSET
0,2
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 0..1000
MAPLE
MATHEMATICA
f[n_] := PowerMod[2n +1, 2n +1, 2^(2n +1)]; Array[f, 25, 0] (* Robert G. Wilson v, Dec 13 2016*)
PROG
(PARI) a(n)=lift(Mod(2*n+1, 2^(2*n+1))^(2*n+1)) \\ Charles R Greathouse IV, Dec 13 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Dec 24 2010
STATUS
approved