cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A060283 Periodic part of decimal expansion of reciprocal of n-th prime (leading 0's moved to end).

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