login
A046273
Largest prime substring in 7^n (0 if none).
3
0, 7, 0, 43, 401, 7, 7649, 823, 4801, 3607, 82475249, 7326743, 41287201, 89, 23072849, 7561, 232930569601, 2630513987207, 8413597910449, 398895185373143, 297612001, 558545864083, 2988049, 3400809163
OFFSET
0,2
LINKS
MATHEMATICA
lpss[n_]:=Module[{idn7=IntegerDigits[7^n]}, Max[Select[Flatten[ Table[ FromDigits/@ Partition[idn7, i, 1], {i, Length[idn7]}]], PrimeQ]]]; Array[ lpss, 25, 0]/.-\[Infinity]->0 (* Harvey P. Dale, Aug 17 2013 *)
CROSSREFS
Cf. A046265.
Sequence in context: A222322 A228762 A352078 * A167317 A266436 A240822
KEYWORD
nonn
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved