OFFSET
3,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 3..10000
MATHEMATICA
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 *)
Array[Function[p, If[Divisible[10, p], 0, Total[RealDigits[1/p][[1, 1]]]]/9]@ Prime@ # &, 68, 3] (* Michael De Vlieger, May 20 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Mar 01 2014
STATUS
approved