login
Largest prime substring in 9^n (0 if none).
3

%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