|
%I #5 Aug 13 2017 21:43:04
%S 1,12,112,1116,11112,111126,1111156,11111116,111111112,1111111212,
%T 11111111112,111111111366,1111111111152,11111111111122,
%U 111111111111232,1111111111111122,11111111111111152,111111111111111636,1111111111111111542,11111111111111111266
%N Smallest n-digit member of A089699.
%p for d from 1 to 20 do n:=(10^d-1)/9: n:=nextprime(n): while(not isprime(mul(j,j=convert(n-1,base,10))+1)) do n:=nextprime(n) od: printf("%d, ",n-1) od: # C. Ronaldo
%Y Cf. A089699, A089701.
%K base,nonn
%O 1,2
%A _Amarnath Murthy_, Nov 10 2003
%E Corrected and extended by C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 25 2004
|
