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,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

Cf. A238104.

Sequence in context: A156368 A240665 A068958 * A087000 A289067 A010282

Adjacent sequences: A238103 A238104 A238105 * A238107 A238108 A238109

Keyword

nonn,base

Author

N. J. A. Sloane, Mar 01 2014

Status

approved