

A073658


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


5



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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: A028908 A265148 A220445 * 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



