|
%I #12 Aug 02 2013 11:20:54
%S 3,9,11,27,37,101,41,271,7,13,239,4649,73,137,81,333667,9091,21649,
%T 513239,9901,53,79,265371653,909091,31,2906161,17,5882353,2071723,
%U 5363222357,19,52579,1111111111111111111,3541,27961,43,1933,10838689,23,121,4093,8779,11111111111111111111111
%N Powers of primes other than 2 and 5 in order by cycle length of reciprocal in decimal.
%H Charles R Greathouse IV, <a href="/A227969/b227969.txt">Rows n = 1..100 of triangle, flattened</a>
%e 3 and 9 qualify for the first 2 terms because both of them have a reciprocal cycle of 1. Then 11 has a reciprocal cycle of 2; then 27 and 37 have 3; then 101 has 4; then 41 and 271 have 5. Table begins:
%e 3, 9;
%e 11;
%e 27, 37;
%e 101;
%e 41, 271;
%e 7, 13;
%e 239, 4649;
%e 73, 137;
%e 81, 333667;
%e 9091;
%e 21649, 513239;
%e 9901;
%e 53, 79, 265371653;
%o (PARI) go(n)=my(v=[],P=[],E=[],t,ok); for(k=1,n, t=setminus(factor(10^k-1)[,1]~,P); E=concat(E,vector(#t,i,1)); P=concat(P,t); E=apply(i->E[i],Vec(vecsort(P,,1))); P=vecsort(P); ok=1; while(ok, ok=0; for(i=1,#P,if(znorder(Mod(10,P[i]^(E[i]+1)))==k, E[i]++; t=concat(t,P[i]^E[i]); ok=1))); v=concat(v,t=vecsort(t)); print(k" "t)); v \\ _Charles R Greathouse IV_, Aug 01 2013
%Y Cf. A002371, A046107.
%K nonn,tabf,base
%O 1,1
%A _J. Lowell_, Aug 01 2013
%E a(9)-a(43) from _Charles R Greathouse IV_, Aug 01 2013
|
