|
%I #14 Jul 06 2021 02:15:11
%S 1,1376,1999,3374,3376,4751,5374,6749,6751,8126,8749,10124,10126,
%T 11501,12124,13499,13501,14876,15499,16874,16876,18251,18874,20249,
%U 20251,21626,22249,23624,23626,25001,25624,26999,27001,28376,28999,30374,30376,31751,32374
%N Numbers k such that k^14 == 1 (mod 15^3).
%H Amiram Eldar, <a href="/A056087/b056087.txt">Table of n, a(n) for n = 1..10000</a>
%t x=15; Select[ Range[ 50000 ], PowerMod[ #, x-1, x^3 ]==1& ]
%t Select[Range[31000],PowerMod[#,14,3375]==1&] (* _Harvey P. Dale_, Nov 27 2019 *)
%Y Cf. A056082, A056083, A056084, A056085, A056086, A056088, A056089.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Jun 08 2000
|
