|
%I #23 Apr 08 2024 06:55:25
%S 2,23,47,2357,223,35339,214282847,7717859,806801,185176472401,357211,
%T 4967701595369,104364752351,27558919,5269410931806332951,
%U 274784055330749,1191126125288819,178258515898000387,2313161253378144566969023310693,8730041915527145606449758346652473,26293517701186435480644832888393,29890227360205834316383307128051,3858432486690092813,7122852423207105431971,93753283248830261744671
%N Largest prime factor of A019518, concatenation of first n primes.
%H Daniel Suteu, <a href="/A074809/b074809.txt">Table of n, a(n) for n = 1..69</a>
%F a(n) = A006530(A019518(n)). - _Daniel Suteu_, May 26 2022
%e For n=5: concatenation of {2,3,5,7,11} is 235711 = 7*151*223, largest prime divisor is a(5)=223.
%t <<NumberTheory`NumberTheoryFunctions` sz[x_] :=FromDigits[Flatten[Table[IntegerDigits[Prime[j]], {j, 1, x}], 1]] Table[Max[PrimeFactorList[sz[w]]], {w, 1, 25}] (* _Labos Elemer_, Mar 18 2005 *)
%t Table[FactorInteger[FromDigits[Flatten[IntegerDigits/@Prime[ Range[n]]]]][[-1,1]],{n,25}] (* _Harvey P. Dale_, Apr 27 2015 *)
%o (PARI) a(n) = vecmax(factor(eval(concat(apply(s->Str(s), primes(n)))))[,1]); \\ _Daniel Suteu_, May 26 2022
%Y Cf. A019518.
%K nonn,base
%O 1,1
%A _Jason Earls_, Sep 08 2002
%E More terms from _Labos Elemer_, Mar 18 2005
%E Edited by _Charles R Greathouse IV_, Apr 23 2010
|
