A073658 Rearrangement of squares such that sum of two consecutive terms is a prime.

1, 4, 9, 64, 25, 16, 81, 100, 49, 144, 169, 400, 121, 36, 361, 196, 225, 484, 289, 324, 529, 900, 841, 256, 625, 576, 1225, 676, 441, 1156, 1521, 1600, 1089, 784, 1369, 1024, 729, 2500, 961, 1936, 1681, 2116, 2401, 1296, 4225, 1444, 2025, 2704, 3249, 4624

Offset

1,2

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Mathematica

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 *)

Crossrefs

Cf. A073655, A073656, A073657.

Sequence in context: A265148 A220445 A360751 * A059479 A094083 A168251

Adjacent sequences: A073655 A073656 A073657 * A073659 A073660 A073661

Keyword

nonn

Author

Amarnath Murthy, Aug 10 2002

Extensions

More terms from Jason Earls, Aug 25 2002

Status

approved