OFFSET
0,1
FORMULA
EXAMPLE
a(0) = 3 because 10 * 0 + 3 = 3 (prime),
a(1) = 13 because 10 * 1 + 3 = 13 (prime),
a(3) = 3 because 10 * 3 + 3 = 33 (composite). Substrings of 33 are 0, 3, 33 and the largest prime of these is 3.
a(78) = 83 because 10 * 78 + 3 = 783 (composite). The largest prime substring is 83.
MATHEMATICA
a[n_]:=Max[Select[FromDigits/@Subsequences[IntegerDigits[10n+3]], PrimeQ]] (* James C. McMahon, Apr 16 2025 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Feb 24 2008
STATUS
approved
