%I #25 May 19 2020 15:11:26
%S 6481,144169,324361,400441,784841,16001681,23042401,67246889,77447921,
%T 84648649,92169409,96049801,1254412769,1638416641,1742417689,
%U 1960019881,2016420449,4752447961,5382454289,5664457121,5760058081,6051661009
%N Primes which are the concatenation of two consecutive square numbers.
%C The second prime in this sequence, 144169, arises in the theory of modular forms, as observed by Hecke. On page 671 of Hecke (1937), Hecke works out the cusp forms of weight 24 and observes that the Hecke operators have eigenfunctions with Fourier coefficients in the quadratic field of discriminant 144169. Thanks to Jerrold B. Tunnell for this comment. See also the articles by Hida and Zagier. _N. J. A. Sloane_, Sep 13 2014
%D E. Hecke, Über Modulfunktionen und die Dirichletschen Reihen mit Eulerscher Produktentwicklung, Math. Annalen, 114 (1937), 1-28; Werke pp. 644-671. See page 671.
%H Robert Israel, <a href="/A104242/b104242.txt">Table of n, a(n) for n = 1..10000</a>
%H Haruzo Hida, <a href="https://web.archive.org/web/20160428201334/http://www.math.ucla.edu/~hida/Sofia13Sum_sld.pdf">Arithmetic of Weil numbers and Hecke fields.</a>
%H Don Zagier, <a href="http://people.mpim-bonn.mpg.de/zagier/files/doi/10.1007/978-3-540-74119-0_1/fulltext.pdf">Elliptic Modular Forms and Their Applications</a>
%e The first term is 6481 which is a prime and is the concatenation of 64 and 81 which are two consecutive square numbers.
%p catn:= proc(a,b) 10^(1+ilog10(b))*a+b end proc:
%p R:= NULL: count:= 0:
%p for x from 2 by 2 while count < 100 do
%p y:= catn(x^2,(x+1)^2);
%p if isprime(y) then count:= count+1; R:= R, y; fi
%p od:
%p R; # _Robert Israel_, May 19 2020
%o (Python)
%o from sympy import isprime
%o A104242_list = []
%o for n in range(1,2000):
%o ....x = int(str(n**2)+str((n+1)**2))
%o ....if isprime(x):
%o ........A104242_list.append(x) # _Chai Wah Wu_, Sep 13 2014
%Y A090738 gives the numbers n such that a(n) = (n^2 concatenated with (n+1)^2) is prime.
%Y These are the primes in A246973. Cf. A104301, A246972.
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, Apr 17 2005