login
Record values in A247190.
2

%I #7 Dec 18 2014 02:14:11

%S 0,3,4,6,8,9,15,17,27,31,44,68,84,86,139,153,163,185,202,234,255,273,

%T 279,376,398,415,441,491,503,525,674,713,785,972,1076,1098,1242,1423,

%U 1678,1685,1814,1882,2371,2437,2931,2956,3152,3170,3898,4877,4922,4967

%N Record values in A247190.

%H Chai Wah Wu, <a href="/A250984/b250984.txt">Table of n, a(n) for n = 1..97</a>

%o (Python)

%o from sympy import prime

%o def A247190(n):

%o ....p, f, fv = prime(n), 1, {}

%o ....for i in range(2,p):

%o ........f = (f*i) % p

%o ........if f in fv:

%o ............return fv[f]

%o ........else:

%o ............fv[f] = i

%o ....return 0

%o A250984_list, m = [], -1

%o for i in range(3,10**6):

%o ....v = A247190(i)

%o ....if v > m:

%o ........A250984_list.append(v)

%o ........m = v

%Y Cf. A247190, A250985.

%K nonn

%O 1,2

%A _Chai Wah Wu_, Dec 16 2014