The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #12 May 21 2017 14:33:32
%S 0,3,1,3,8,9,11,14,6,1,2,10,23,7,29,30,16,14,4,6,19,22,48,2,17,25,54,
%T 56,21,65,4,23,74,34,39,40,83,23,89,90,41,96,49,45,15,111,54,114,116,
%U 2,15,25,128,131,134,2,36,14,69,73,75,68,156,39,55,168,84,58
%N a(n) = A238104(n)/9.
%H Michael De Vlieger, <a href="/A238106/b238106.txt">Table of n, a(n) for n = 3..10000</a>
%t a[n_/;n>3]:=Module[{r=1,s=1},While[r=Mod[10r,Prime[n]];r!=1,s+=r];s/Prime[n]];Table[a[n],{n,4,100}] (* _Herbert Kociemba_, May 19 2017 *)
%t Array[Function[p, If[Divisible[10, p], 0, Total[RealDigits[1/p][[1, 1]]]]/9]@ Prime@ # &, 68, 3] (* _Michael De Vlieger_, May 20 2017 *)
%Y Cf. A238104.
%K nonn,base
%O 3,2
%A _N. J. A. Sloane_, Mar 01 2014