OFFSET
1,1
LINKS
Sean A. Irvine, Table of n, a(n) for n = 1..20
MAPLE
for n from 1 to 300 do a := n:k := 2:d := floor(n/k); while(d>0) do a := d+10^( floor(evalf(log(d)/log(10))+0.0000000001 )+1)*a: if(d=1) then k := n:end if:k := k+1:d := floor(n/k):end do:b[n] := a; end do:j := 0:for i from 1 to 300 do if(isprime(b[i])) then j := j+1:q[j] := b[i]:end if:end do:seq(q[k], k=1..j);
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Mar 02 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 27 2002
a(13) from Sean A. Irvine, Mar 04 2024
STATUS
approved