

A117986


Number of functions f:[n]>[n] such that f[(x*y) mod n]=[f(x)*f(y)] mod n for all x,y in [n], for n=1,2,3,... Here [n] denotes {0,1,2,...,n1}.


3



1, 3, 4, 6, 6, 35, 8, 50, 20, 55, 12, 160, 14, 75, 160, 194, 18, 195, 20, 256, 220, 115, 24, 3936, 102, 135, 164, 352, 30, 5301, 32, 770, 340, 175, 352, 2496, 38, 195, 400, 6396, 42, 7353, 44, 544, 928, 235, 48, 15456, 296, 1015, 520, 640, 54, 1635, 544, 8856
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

If, instead, the modular functional equation f[(x+y) mod n]=[f(x)+f(y)] mod n is considered, it is found that for each n=1,2,3,... there appears to be exactly n functions with the desired property. See A117987 and A117988 for results on other modular functional equations.


LINKS

Table of n, a(n) for n=1..56.
Rémy Sigrist, C++ program for A117986


FORMULA

Apparently, a(p) = p + 1 for any prime number p.  Rémy Sigrist, Sep 19 2019


EXAMPLE

For n=5 the six functions are (0,0,0,0,0), (0,1,1,1,1), (1,1,1,1,1), (0,1,4,4,1), (0,1,3,2,4), (0,1,2,3,4). For the 5th of these, (0,1,3,2,4), the x=2, y=3 case is verified by the calculations f(2*3 mod 4) = f(1) = 1 and f(2)*f(3) mod 5 = 3*2 mod 5 = 1.


PROG

(C++) See Links section.


CROSSREFS

Cf. A117987, A117988.
Sequence in context: A285895 A220345 A065967 * A248738 A070737 A225647
Adjacent sequences: A117983 A117984 A117985 * A117987 A117988 A117989


KEYWORD

nonn


AUTHOR

John W. Layman, Apr 07 2006


EXTENSIONS

More terms from Rémy Sigrist, Sep 19 2019


STATUS

approved



