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

A292472 Generalized heptagonal numbers that are also Fibonacci numbers.

Original entry on oeis.org

0, 1, 13, 34, 55
Offset: 1

Views

Author

Felix Fröhlich, Sep 17 2017

Keywords

Comments

Intersection of A000045 and A085787.
Exactly five such numbers exist (cf. Srinivasa Rao, 2003).
All (generalized) g-gonal numbers in Fibonacci sequences up to g=20 have been determined (cf. Tengely, 2009). - Tomohiro Yamada, Sep 26 2017

Crossrefs

Cf. A292850 (Generalized heptagonal Lucas numbers).

Programs

  • Mathematica
    Intersection[Array[(# (# + 1)/2 - 1)/5 &, 50, 0], Array[Fibonacci, 50, 0]] (* Michael De Vlieger, Sep 18 2017 *)
  • PARI
    a085787(n) = (5*(-n\2)^2 - (-n\2)*3*(-1)^n) / 2
    is_a000045(n) = my(x=0); while(fibonacci(x) < n, x++); if(fibonacci(x)==n, return(1)); 0
    for(n=0, 60, if(is_a000045(a085787(n)), print1(a085787(n), ", ")))
Showing 1-1 of 1 results.