%I #32 Jul 10 2021 19:25:46
%S 0,3,0,142857,90,769230,5882352941176470,526315789473684210,
%T 4347826086956521739130,3448275862068965517241379310,322580645161290,
%U 270,24390,232558139534883720930,2127659574468085106382978723404255319148936170
%N Periodic part of decimal expansion of reciprocal of n-th prime (leading 0's moved to end).
%H T. D. Noe, <a href="/A060283/b060283.txt">Table of n, a(n) for n=1..100</a>
%F A060283 = A036275 o A000040, i.e., a(n) = A036275(A000040(n)). - _M. F. Hasler_, Dec 28 2015
%e 1/11 = .09090909..., so a(5) = 90.
%t 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 *)
%o (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)
%o forprime(i=1,1e2,print1(a(i)", ")) \\ _Lear Young_, Mar 01 2014
%Y Cf. A036275, A060251.
%K nonn,easy,base
%O 1,2
%A _N. J. A. Sloane_, Mar 30 2001
%E More terms from _Klaus Brockhaus_, Mar 30 2001