OFFSET
1,1
COMMENTS
FORMULA
EXAMPLE
PROG
(PARI) A261172_list(LIM=1e499)={my(A=List(), p, d); for(b=2, 9e9, for(n=b, 9e9, if(LIM<p=sum(i=1, #d=concat(vector(n*2-1, k, digits(min(k, n*2-k), b))), d[i]*b^(#d-i)), break(2-(n>b))); ispseudoprime(p)&&listput(A, [log(p), n]))); apply(t->t[2], vecsort(A))}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Aug 23 2015
STATUS
approved