|
%I #8 Dec 15 2017 17:35:58
%S 1,4,9,64,25,16,81,100,49,144,169,400,121,36,361,196,225,484,289,324,
%T 529,900,841,256,625,576,1225,676,441,1156,1521,1600,1089,784,1369,
%U 1024,729,2500,961,1936,1681,2116,2401,1296,4225,1444,2025,2704,3249,4624
%N Rearrangement of squares such that sum of two consecutive terms is a prime.
%H T. D. Noe, <a href="/A073658/b073658.txt">Table of n, a(n) for n = 1..1000</a>
%t mx = 100; free = Range[2, mx]^2; t = {1}; While[i = 1; While[i <= Length[free] && ! PrimeQ[t[[-1]] + free[[i]]], i++]; i <= Length[free], AppendTo[t, free[[i]]]; free = Delete[free, i]]; t (* _T. D. Noe_, Dec 18 2012 *)
%Y Cf. A073655, A073656, A073657.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Aug 10 2002
%E More terms from _Jason Earls_, Aug 25 2002
|
