OFFSET
1,1
COMMENTS
I conjecture this sequence to be infinite. Searching through the first 200000 values, I found 7000 primes, of which over 400 were "twins", i.e. both n^2*(n+1)^2 and (n+2)^2*(n+3)^2 were prime, where "*" denotes concatenation. I conjecture there to be an infinitude of such twins and the obvious generalizations.
The symmetric problem, i.e., finding two consecutive primes whose concatenation is a square, is somehow harder. Probably the smallest such primes are p = 411828016678198512725064549221 and its successor p+20, whose concatenation is equal to 641738277398347583345401533579^2. - Giovanni Resta, Jul 23 2015
LINKS
Zak Seidov, Table of n, a(n) for n = 1..10000
EXAMPLE
The first term, n=8 corresponds to the prime 6481, which is the concatenation of 8^2=64 and 9^2=81. The second term, n=12 corresponds to the prime 144169.
MATHEMATICA
For[i=1, i<200000, i=i+1, n=2i; e=IntegerPart[2 Log[10, n+1]]+1; x=10^e n^2 + (n+1)^2; y={n, x}; If[ PrimeQ[x], Save["primes.txt", y]]]
Select[Range@ 648, PrimeQ@ FromDigits[IntegerDigits[#^2] ~Join~ IntegerDigits[(# + 1)^2]] &] (* Michael De Vlieger, Jul 23 2015 *)
Position[FromDigits[Flatten[IntegerDigits/@#]]&/@Partition[ Range[ 700]^2, 2, 1], _?PrimeQ]//Flatten (* Harvey P. Dale, Dec 23 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Kontorovich (alexk(AT)math.columbia.edu), Jan 19 2004
STATUS
approved