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-2 of 2 results.

A088174 Numbers n such that n^2 appears in A088173.

Original entry on oeis.org

1, 2, 4, 6, 18, 30, 36, 78, 90, 114, 120, 132, 138, 144, 150, 156, 162, 168, 192, 210, 216, 222, 246, 264, 288, 306, 312, 318, 336, 372, 396, 462, 564, 606, 624, 630, 642, 648, 654, 678, 714, 738, 774, 792, 810, 816, 840, 864, 918, 936, 1002, 1020, 1038, 1062
Offset: 1

Views

Author

Zak Seidov, Sep 22 2003

Keywords

Crossrefs

Extensions

Corrected and extended by Ray Chandler, Sep 25 2003

A278139 Primes, starting with a(1)=2, whose successive differences are increasing triangular numbers.

Original entry on oeis.org

2, 3, 13, 41, 107, 227, 503, 881, 1409, 2039, 2819, 3947, 5273, 6869, 8699, 11549, 15377, 19937, 24593, 30809, 38069, 47939, 58379, 69257, 82787, 98897, 115733, 133499, 152027, 172127, 192833, 218711, 247391, 279269, 315047, 355517, 399473, 444623
Offset: 1

Views

Author

Ivan N. Ianakiev, Nov 13 2016

Keywords

Crossrefs

Programs

  • Mathematica
    lst={1};p[1]=2;p[n_]:=p[n]=Module[{i=Last[lst]+1},
    While[!PrimeQ[p[n-1]+i*(i-1)/2],i++];AppendTo[lst,i];p[n-1]+i*(i-1)/2];
    p/@Range[50]
Showing 1-2 of 2 results.