|
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
There are no other terms below 10^7.
|
|
LINKS
|
|
|
MATHEMATICA
|
{1}~Join~Select[Range[2, nn], Function[k, And[Union@ Table[Mod[k + #[[i, 1]]^#[[i, 2]], #[[i, 1]]^(#[[i, 2]] + 1)], {i, Length@ #}] == {0}, Union@ Table[IntegerQ[k/(#[[i, 1]]^#[[i, 2]] - 1)], {i, Length@ #}] === {True}] &@ FactorInteger@ k]] (* Michael De Vlieger, Mar 21 2016, after José María Grau Ribas at A266005 and A270140 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|