OFFSET
1,9
COMMENTS
Row sums are:
{1, 2, 2, 6, 33, 12, 3414, 418, 3485, 427,...}
The sequences is related to indices solutions of:
x^k=Mod[a,n]
REFERENCES
Burton, David M.,Elementary number theory,McGraw Hill,N.Y.,2002,pp173ff
FORMULA
t(n,k)=If[Mod[k, n] == 0 && (Mod[k, EulerPhi[n]] == 0), 1, Mod[k, n] ^ Mod[k, EulerPhi[n]]]
EXAMPLE
{1},
{1, 1},
{1, 1, 0},
{1, 1, 3, 1},
{1, 4, 27, 1, 0},
{1, 1, 3, 1, 5, 1},
{1, 4, 27, 256, 3125, 1, 0},
{1, 4, 27, 1, 5, 36, 343, 1},
{1, 4, 27, 256, 3125, 1, 7, 64, 0},
{1, 4, 27, 1, 5, 36, 343, 1, 9, 0}
MATHEMATICA
t[n_, k_] = If[Mod[k, n] == 0 && (Mod[k, EulerPhi[n]] == 0), 1, Mod[k, n] ^ Mod[k, EulerPhi[n]]]
Flatten[Table[Table[t[n, k], {k, 1, n}], {n, 1, 10}]]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Roger L. Bagula, Nov 01 2009
STATUS
approved