OFFSET
1,1
EXAMPLE
E.g., 5449^2 = 29691601 = (2969)(1601).
PROG
(PARI) { a(n) = local(t, m, s); t = 10^(n-1); while(1, t=nextprime(t+1); m = nextprime(sqrtint(t*10^n)+1); s=m^2; if( s\10^n!=t, next); if( (s%10^n) > 10^(n-1) && ispseudoprime(s%10^n), return(m); ); ) } \\ Max Alekseyev, Apr 23 2010
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 15 2001
EXTENSIONS
More terms from Max Alekseyev, Apr 23 2010
STATUS
approved