|
%I #12 Mar 04 2024 14:35:19
%S 31,421,521,7321,84221,94321,147432221,18964332221,29149754433222221,
%T 38191297654433322222221,39191397654433332222221,
%U 63312115121097765544433333322222222221,743724181412109876655444433333322222222222221
%N Primes in A068671.
%H Sean A. Irvine, <a href="/A068672/b068672.txt">Table of n, a(n) for n = 1..20</a>
%p 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);
%Y Cf. A068671.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Mar 02 2002
%E More terms from _Sascha Kurz_, Mar 27 2002
%E a(13) from _Sean A. Irvine_, Mar 04 2024
|
