Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #33 Jun 01 2017 04:36:59
%S 1,3,0,6,9,2,6,0,16,18,6,22,0,27,28,15,6,0,3,6,5,21,0,46,42,48,13,0,
%T 18,58,60,18,0,33,66,35,8,0,6,13,81,41,0,84,44,6,15,0,96,18,4,34,0,53,
%U 108,3,112,0,18,48,22,15,0,42,21,130,18,0,8,46,138,6,0
%N a(n) = smallest m such that 2n-1 | (10^m-1)/9, or 0 if no such m exists.
%C a(n) is the multiplicative order of 10 mod 9*(2n-1) if defined, otherwise 0.
%t Table[s = MultiplicativeOrder[10, 9*(2*n - 1)]; If[! IntegerQ[s], 0, s], {n, 100}] (* _T. D. Noe_, Sep 20 2012 *)
%o (PARI) A216473(n)=if(n%5-3,znorder(Mod(10,18*n-9))) \\ _M. F. Hasler_, Sep 29 2012
%o (PARI) for(i=0,200,i++;if(i%5==0,print1(0","),print1(znorder(Mod(10,9*i))","))) \\ _V. Raman_, Nov 22 2012
%o (PARI) for(i=0,200,i++;m=0;for(x=1,i,if(((10^x-1)/9)%i==0,m=x;break));print1(m",")) \\ _V. Raman_, Nov 22 2012
%Y Cf. A002326.
%K nonn
%O 1,2
%A _V. Raman_, Sep 07 2012
%E Definition corrected by _V. Raman_, Sep 20 2012