%I #14 Oct 10 2019 00:34:15
%S 0,0,0,29,61,9049,53,7829,3046721,89,84401,1381,2429536481,8329,
%T 876792454961,113209,853020188851,77181699666569,15009463529,
%U 35085171767,2157665459056928801,1094189891315123,984770902183
%N Largest prime substring in 9^n (0 if none).
%H Harvey P. Dale, <a href="/A046275/b046275.txt">Table of n, a(n) for n = 0..100</a>
%t lps[n_]:=Module[{c=9^n},Max[Select[FromDigits/@Flatten[Table[ Partition[ IntegerDigits[c],i,1],{i,IntegerLength[c]-1,1,-1}],1],PrimeQ]]]; Join[ {0,0,0},Array[lps,20,3]] (* _Harvey P. Dale_, May 07 2015 *)
%Y Cf. A046267.
%K nonn
%O 0,4
%A _Patrick De Geest_, Jun 15 1998