OFFSET
0,3
MAPLE
mycat := (n, k) -> parse(cat(convert(n, string), convert(k, string))):
b10digs := n -> max(1, 1 + ilog10(n)): b10cat := (a, b) -> b + a * b10digs(b):
b10parts := p -> local j; [seq(irem(p, 10^(j+1)), j = 0..b10digs(p)-1)]:
b10primes := p -> local j; select(isprime, b10parts(p)):
b10maxprime := proc(n) max(b10primes(n)); ifelse(% = -infinity, 0, %) end: # A331097
b10minprime := proc(n) min(b10primes(n)); ifelse(% = infinity, 0, %) end:
seq(b10minprime(n), n = 0..80);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Peter Luschny, Sep 20 2024
STATUS
approved