A060283 Periodic part of decimal expansion of reciprocal of n-th prime (leading 0's moved to end).
0, 3, 0, 142857, 90, 769230, 5882352941176470, 526315789473684210, 4347826086956521739130, 3448275862068965517241379310, 322580645161290, 270, 24390, 232558139534883720930, 2127659574468085106382978723404255319148936170
Offset: 1
Examples
1/11 = .09090909..., so a(5) = 90.
Links
- T. D. Noe, Table of n, a(n) for n=1..100
Programs
-
Mathematica
Table[FromDigits[FindTransientRepeat[RealDigits[1/p,10,100][[1]],2][[2]]],{p,Prime[Range[20]]}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 10 2021 *)
-
PARI
a(n)=t=iferr(znorder(Mod(10,n)),E,0);d=(10^t-1)/n;s=t-#Str(d);if(s,d*10^s,d) forprime(i=1,1e2,print1(a(i)", ")) \\ Lear Young, Mar 01 2014
Extensions
More terms from Klaus Brockhaus, Mar 30 2001