A238106 a(n) = A238104(n)/9.

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, 56, 21, 65, 4, 23, 74, 34, 39, 40, 83, 23, 89, 90, 41, 96, 49, 45, 15, 111, 54, 114, 116, 2, 15, 25, 128, 131, 134, 2, 36, 14, 69, 73, 75, 68, 156, 39, 55, 168, 84, 58

Offset: 3

Author

N. J. A. Sloane, Mar 01 2014

Keywords

• nonn
• base

Links

• Michael De Vlieger, Table of n, a(n) for n = 3..10000

Crossrefs

Cf. A238104.

Programs

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 *)