A073657 -id:A073657 - cp's OEIS frontend

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

Amarnath Murthy, Aug 10 2002

nonn

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

Cf. A073655, A073656, A073657.

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

More terms from Jason Earls, Aug 25 2002

A073656 Rearrangement of Fibonacci numbers such that sum of two consecutive terms is a prime.

Original entry on oeis.org

1, 1, 2, 3, 8, 5, 144, 13, 34, 55

Offset: 1

Amarnath Murthy, Aug 10 2002

nonn

a(11) = F(67671), the 67671st Fibonacci number. This has over 14000 decimal digits and is too large to display here. - Ryan Propper, Jun 16 2006

Cf. A073655, A073657.

l = {1, 1}; Do[k = 1; While[MemberQ[l, Fibonacci[k]] || !PrimeQ[Last[l] + Fibonacci[k]], k++ ]; AppendTo[l, Fibonacci[k]]; Print[l], {n, 9}] (* Ryan Propper, Jun 16 2006 *)

cp's OEIS Frontend

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions