login
A238106
a(n) = A238104(n)/9.
2
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
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
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Mar 01 2014
STATUS
approved