|
%I #22 Dec 29 2023 23:18:34
%S 0,0,2,3,0,5,0,7,0,0,0,11,2,13,0,5,0,17,0,19,2,2,2,23,2,5,2,7,2,29,3,
%T 31,3,3,3,5,3,37,3,3,0,41,2,43,0,5,0,47,0,0,5,5,5,53,5,5,5,7,5,59,0,
%U 61,2,3,0,5,0,67,0,0,7,71,7,73,7,7,7,7,7,79,0,0,2,83,0,5,0,7,0,89
%N Largest prime substring of n, or 0 if no such substring exists.
%C A211396(n) <= a(n). - _Reinhard Zumkeller_, Feb 08 2013
%H Reinhard Zumkeller, <a href="/A047814/b047814.txt">Table of n, a(n) for n = 0..10000</a>
%e a(10)=0, a(1227)=227.
%t a[n_] := (id = IntegerDigits[n]; lg = Length[id]; sel = Select[ FromDigits /@ Flatten[ Table[ id[[i ;; j]], {i, 1, lg}, {j, i, lg}], 1], PrimeQ]; If[ sel === {}, 0, Last[ Sort[ sel] ] ]); Table[ a[n], {n, 0, 99}] (* _Jean-François Alcover_, Feb 23 2012 *)
%t lps[m_]:=Max[Select[Flatten[Table[FromDigits/@Partition[ IntegerDigits[ m],n,1],{n,IntegerLength[m]}]],PrimeQ]]; Array[lps,100,0]/. -\[Infinity]->0 (* _Harvey P. Dale_, Feb 26 2014 *)
%o (Haskell)
%o import Data.List (isInfixOf)
%o a047814 n = if null ips then 0 else head ips
%o where ips = [p | p <- reverse $ takeWhile (<= n) a000040_list,
%o show p `isInfixOf` show n]
%o -- _Reinhard Zumkeller_, Feb 08 2013
%Y Cf. A211396.
%K nonn,easy,base,nice,look
%O 0,3
%A _N. J. A. Sloane_
%E Corrected (41) by _Jean-François Alcover_, Feb 23 2012
|
