login
A270141
A270140 intersect A266005.
0
1, 2, 6, 42, 720, 1806
OFFSET
1,2
COMMENTS
There are no other terms below 10^7.
LINKS
Jose María Grau and A. M. Oller-Marcen, Power sums over commutative and unitary rings , arXiv:1603.05787 [math.NT], 2016.
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