[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A046275
Largest prime substring in 9^n (0 if none).
3
0, 0, 0, 29, 61, 9049, 53, 7829, 3046721, 89, 84401, 1381, 2429536481, 8329, 876792454961, 113209, 853020188851, 77181699666569, 15009463529, 35085171767, 2157665459056928801, 1094189891315123, 984770902183
OFFSET
0,4
LINKS
MATHEMATICA
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 *)
CROSSREFS
Cf. A046267.
Sequence in context: A173032 A142047 A335329 * A092222 A338529 A039516
KEYWORD
nonn
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved