cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-4 of 4 results.

A073657 A073656 is the rearrangement of Fibonacci numbers such that sum of two consecutive terms is a prime. This is the sequence of those Fibonacci numbers which retain their relative position in the above rearrangement.

Original entry on oeis.org

1, 1, 2, 3, 34, 55
Offset: 1

Views

Author

Amarnath Murthy, Aug 10 2002

Keywords

Crossrefs

Cf. A073655, A073656.

A119755 Indices of Fibonacci numbers in A073656, i.e., A073656(n) = F(a(n)).

Original entry on oeis.org

1, 2, 3, 4, 6, 5, 12, 7, 9, 10, 67671, 11084, 5271, 6704, 6807, 6452, 10587, 7928, 2463, 80, 57, 8, 15, 16, 18, 20, 27, 22, 21, 124, 87, 32, 30, 11, 24, 13, 48, 23, 60, 19, 54, 52, 69, 44, 513, 148, 75, 38, 36, 29, 750, 259, 246, 53, 150, 83, 132, 73, 42, 40, 51, 14, 981, 284, 801, 964, 1971, 5174
Offset: 1

Views

Author

Ryan Propper, Jun 17 2006

Keywords

Comments

a(12) > 9800.

Examples

			A073656(7) = 144, the 12th Fibonacci number, so a(7) = 12.

Crossrefs

Cf. A073656.

Programs

  • Mathematica
    l = {1, 2}; Do[k = 1; While[MemberQ[l, k] || !PrimeQ[Fibonacci[Last[l]] + Fibonacci[k]], k++ ]; AppendTo[l, k]; Print[l], {n, 30}]

A073655 Rearrangement of triangular numbers such that sum of two consecutive terms is a prime.

Original entry on oeis.org

1, 6, 55, 28, 3, 10, 21, 136, 15, 406, 171, 820, 91, 36, 595, 66, 703, 120, 253, 78, 1225, 496, 45, 946, 105, 1378, 153, 1540, 741, 2278, 435, 2926, 325, 276, 1711, 190, 231, 2080, 1431, 3160, 351, 6328, 465, 4186, 1653, 3916, 1035, 11476, 561, 7750, 1081
Offset: 1

Views

Author

Amarnath Murthy, Aug 10 2002

Keywords

Links

Crossrefs

Cf. A073656.

Extensions

More terms from Jason Earls, Aug 25 2002

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

Original entry on oeis.org

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

Views

Author

Amarnath Murthy, Aug 10 2002

Keywords

Links

Crossrefs

Cf. A073655, A073656, A073657.

Programs

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

Extensions

More terms from Jason Earls, Aug 25 2002
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.