|
%I #16 May 04 2021 17:23:30
%S 121,111,1111,11111,111,1111111,1507,1001001,100001,11111111111,29703,
%T 14064697609,10000001,8718483,64705883,11111111111111111,1001001,
%U 1234567901234567900987654320987654321,307571,32516067,5645629,123456790123456790123454320987654320987654321
%N Product of the lowest and highest prime factors of n-th repunit A002275(n).
%H Chai Wah Wu, <a href="/A249627/b249627.txt">Table of n, a(n) for n = 2..322</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/repunits.htm">Repunits and Their Factors</a>
%e Highest and lowest prime factors of 111111 are 3 and 37, so the sixth term is 111.
%t plh[n_]:=Module[{fi=FactorInteger[FromDigits[PadRight[{},n,1]]]},fi[[1,1]]fi[[-1,1]]]; Array[plh,30,2] (* _Harvey P. Dale_, May 04 2021 *)
%o (PARI) for(n=2,20,p=(10^n-1)/9;print1(factor(p)[1,1]*factor(p)[#factor(p)[,1],1],", ")) \\ _Derek Orr_, Nov 02 2014
%o (Python)
%o from sympy import factorint
%o A249627_list = [min(fs)*max(fs) for fs in (factorint((10**n-1)//9) for n in range(2,31))] # _Chai Wah Wu_, Nov 04 2019
%Y Cf. A002275.
%K nonn,base
%O 2,1
%A _Jacob Vecht_, Nov 02 2014
%E More terms from _Derek Orr_, Nov 02 2014
|
