1,1

A089392 has no members with 10, 11, or 12 digits. It is unlikely that it has any with more than 12 digits. - David Wasserman (wasserma(AT)spawar.navy.mil), Sep 15 2005

with(combinat): ds:=proc(s) local j: RETURN(add(s[j]*10^(j-1), j=1..nops(s))):end: for d from 1 to 10 do sch:=[seq([1, op(i), d+1], i=[[], seq([j], j=2..d)])]: for n from 10^(d-1) to 10^d-1 do sn:=convert(n, base, 10): fl:=0: for s in sch do m:=add(j, j=[seq(ds(sn[s[i]..s[i+1]-1]), i=1..nops(s)-1)]): if not isprime(m) then fl:=1: break fi od: if fl=0 then printf("%d, ", n):break fi od od: (C. Ronaldo)

Cf. A089392, A089394.

Sequence in context: A069663 A121419 A099701 this_sequence A069664 A130150 A115941

Adjacent sequences: A089390 A089391 A089392 this_sequence A089394 A089395 A089396

nonn,base

Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Nov 10 2003

a(5) and a(6) from Mark Hudson (mrmarkhudson(AT)hotmail.com), Dec 15 2004

Corrected and extended by C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 25 2004

Two more terms from David Wasserman (wasserma(AT)spawar.navy.mil), Sep 15 2005