|
|
|
|
9, 4, 9, 16, 25, 169, 25, 64, 81, 100, 25, 27, 729, 121, 49, 256, 289, 324, 81, 64, 243, 484, 49, 576, 5929, 676, 169, 784, 121, 125, 225, 100, 1089, 841, 7921, 1000, 343, 196, 81, 1600, 169, 216, 441, 361, 2025, 2116, 289, 2304, 2401, 256, 625, 2704, 2809, 441
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
COMMENTS
|
a(n) is a perfect power, and a(n) == 1 + n*A338136(n) (mod n^2).
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
|
|
MAPLE
|
g:= proc(n) local k, x, j, F;
for k from 2 to n-2 do
x:= (n+1)^k;
for j from 2 to floor(k*log[n](n+1)) do
F:= ifactors(x mod (n^j))[2];
if igcd(op(map(t -> t[2], F))) > 1 then return x mod (n^j) fi
od od
end proc:
g(2):= 9: g(3):= 4:
map(g, [$2..40]);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|