cp's OEIS Frontend

A178194 Smallest k such that 33^k mod k = n.

%I A178194 #2 Mar 31 2012 10:22:16
%S A178194 1,2,31,5,29,7,21,13,13684967,10,23,14,15,538,19,42,17,35,25,49,16861,
%T A178194 60,55,26,1157,38,511,54,30197665,106,14691,46,155,37,18791,62,369,
%U A178194 164,145,93,63517,92,115,1046,3113077,58,1376107,1042,105,50,221
%N A178194 Smallest k such that 33^k mod k = n.
%C A178194 smallest k such that m^k mod k = n
%C A178194 m=2 see A036236
%C A178194 m=3 see A078457
%C A178194 m=4 see A119678
%C A178194 m=5 see A119679
%C A178194 m=6 see A127816
%C A178194 m=7 see A119715
%C A178194 m=8 see A119714
%C A178194 m=9 see A127817
%C A178194 m=10 see A127818
%C A178194 m=11 see A127819
%C A178194 m=12 see A127820
%C A178194 m=13 see A127821
%C A178194 m=14 see A128154
%C A178194 m=15 see A128155
%C A178194 m=16 see A128156
%C A178194 m=17 see A128157
%C A178194 m=18 see A128158
%C A178194 m=19 see A128159
%C A178194 m=20 see A128160
%C A178194 m=21 see A128361
%C A178194 m=22 see A128362
%C A178194 m=23 see A128363
%C A178194 m=24 see A128364
%C A178194 m=25 see A128365
%C A178194 m=26 see A128366
%C A178194 m=27 see A128367
%C A178194 m=28 see A128368
%C A178194 m=29 see A128369
%C A178194 m=30 see A128370
%C A178194 m=31 see A128371
%C A178194 m=32 see A128372
%C A178194 m=33 see A178194
%C A178194 m=34 see A178195
%C A178194 m=35 see A178196
%C A178194 m=36 see A178197
%C A178194 m=37 see A178198
%C A178194 m=38 see A178199
%C A178194 m=39 see A178200
%C A178194 m=40 see A178201
%C A178194 m=41 see A178202
%t A178194 aa = {}; Do[k = 1; While[PowerMod[33, k, k] != n, k++ ]; Print[k]; AppendTo[aa, k], {n, 0, 50}]; aa
%Y A178194 see comment line.
%K A178194 nonn
%O A178194 0,2
%A A178194 _Artur Jasinski_, May 22 2010