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.

A130594 Numbers which are both lucky (A000959) and tribonacci (A000073).

Original entry on oeis.org

1, 7, 13, 927, 1705, 10609
Offset: 1

Views

Author

Jonathan Vos Post, Jun 16 2007

Keywords

Comments

No other terms below 15902591. The next candidate is the odd tribonacci number 15902591. Is this also a lucky number? - Harvey P. Dale, Jul 12 2008
This is to tribonacci as A057589 is to the Fibonacci numbers.
a(7) >= 23837527729. - Kevin P. Thompson, Nov 24 2021

Examples

			a(6) = 10609 because it is lucky A000959(1182) and tribonacci A000073(18).
		

Crossrefs

A140285 Numbers which are both lucky (A000959) and tetranacci (A000078).

Original entry on oeis.org

1, 15, 10671
Offset: 1

Views

Author

Jonathan Vos Post, May 24 2008

Keywords

Comments

Lucky (A000959) and Fibonacci (A000045) = A057589; lucky and tribonacci (A000073) = A130594. No more through 10^6.
a(4) > 4*10^9, if it exists. - Giovanni Resta, May 10 2020
a(4) >= 10312882481, if it exists. - Kevin P. Thompson, Nov 24 2021

Examples

			a(3) = 10671 = A000078(18) = A000959(1187).
		

Crossrefs

A225322 Lucky numbers that are prime powers.

Original entry on oeis.org

1, 9, 25, 49, 169, 289, 361, 529, 729, 841, 961, 1369, 2187, 2209, 3481, 3721, 5041, 7921, 9409, 10609, 24649, 29791, 32041, 32761, 36481, 50653, 52441, 66049, 73441, 83521, 113569, 121801, 128881, 130321, 167281, 175561, 185761, 226981, 292681, 300763, 323761
Offset: 1

Views

Author

Alex Ratushnyak, May 05 2013

Keywords

Comments

Intersection of A025475 and A000959.
Conjecture: the sequence is infinite.

Crossrefs

A306632 Numbers n which are both lucky (A000959) and Lucas (A000032).

Original entry on oeis.org

1, 3, 7, 3571, 9349, 710647, 12752043
Offset: 1

Views

Author

Amiram Eldar, Mar 02 2019

Keywords

Comments

No more terms below 10^9.
Calculated using Hugo van der Sanden's Lucky numbers up to 10^9.

Crossrefs

Programs

  • Mathematica
    m = 10^4; L = Table[2*i + 1, {i, 0, m}]; For[n = 2, n < Length[L], r = L[[n++]]; L = ReplacePart[L, Table[r*i -> Nothing, {i, 1, Length[L]/r}]]]; lucas = {}; n = 1; While[(l = LucasL[n]) < m, AppendTo[lucas, l]; n++]; Intersection[L, lucas] (* after Jean-François Alcover at A000959 *)
  • Perl
    use ntheory ':all'; for (1..35) { my $n = lucasv(1, -1, $); print "$n\n" if is_lucky($n) } # _Daniel Suteu, Mar 02 2019
Showing 1-4 of 4 results.