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

A036971 Numbers k such that the k-th Fibonacci number reversed is prime.

Original entry on oeis.org

3, 4, 5, 7, 9, 14, 17, 21, 25, 26, 65, 98, 175, 191, 382, 497, 653, 1577, 1942, 1958, 2405, 4246, 4878, 5367, 9142, 9318, 10921, 17833, 20433, 50373, 66571, 85098, 93699, 104075
Offset: 1

Views

Author

Keywords

Comments

Numbers k such that the k-th Fibonacci number appears in A095179. - Iain Fox, Oct 28 2017

Crossrefs

Programs

  • Maple
    revdigs:= proc(n) local L;
    L:= convert(n,base,10);
    add(L[-i]*10^(i-1),i=1..nops(L))
    end proc:
    select(isprime@revdigs@combinat:-fibonacci, [$1..10000]); # Robert Israel, Oct 29 2017
  • Mathematica
    a = Table[FromDigits[Reverse[IntegerDigits[Fibonacci[j]]]], {j, 10000}]; b = Select[a, PrimeQ[ # ] &]; Flatten[Table[Position[a, b[[i]]], {i, 1, Length[b]}]]
    Select[Range[9400],PrimeQ[IntegerReverse[Fibonacci[#]]]&] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* Harvey P. Dale, Dec 08 2015 *)
  • PARI
    lista(nn) = for(n=3, nn, if(ispseudoprime(eval(concat(Vecrev(Str(fibonacci(n)))))), print1(n, ", "))) \\ Iain Fox, Oct 28 2017

Extensions

a(25)-a(26) from Vit Planocka (planocka(AT)mistral.cz), Feb 25 2003
Offset corrected by Arkadiusz Wesolowski, Jan 12 2012
a(27)-a(31) from Iain Fox, Oct 28 2017
a(32)-a(33) from Iain Fox, Oct 29 2017
a(34) from Iain Fox, Aug 24 2021

A036972 Numbers k such that the k-th prime is a Fibonacci number reversed.

Original entry on oeis.org

1, 2, 3, 11, 14, 137, 1005, 5324, 6486, 33326, 1847020051726, 19899051754834984670
Offset: 1

Views

Author

Keywords

Comments

More terms could be obtained from A036971.
The next reversed Fibonacci number which is a prime number is 940647607443258103531. The next term in the sequence would be the prime index for that prime. - Harvey P. Dale, Jun 02 2009

Crossrefs

Programs

  • Mathematica
    Sort[PrimePi/@(Select[FromDigits[Reverse[IntegerDigits[ # ]]]&/@Fibonacci[Range[90]],PrimeQ])] (* Harvey P. Dale, Jun 02 2009 *)

Extensions

One additional term from Harvey P. Dale, Jun 02 2009
Offset corrected and a(12) added using Kim Walisch's primecount by Amiram Eldar, May 06 2024

A345956 Primes whose reverse is the square of a Fibonacci number.

Original entry on oeis.org

1297, 921241, 186331288599111530713519, 98866853184420632874393761586063024530467395043
Offset: 1

Views

Author

Tanya Khovanova, Jun 30 2021

Keywords

Examples

			The reverse of 1297 is 7921 = 89^2, where 89 is a Fibonacci number. Thus 1297 is in this sequence.
		

Crossrefs

Cf. A007488 (primes whose reversal is a square), A036797 (Iccanobif primes).

Programs

  • Mathematica
    Select[IntegerReverse/@(Fibonacci@Range@1000^2),PrimeQ] (* Giorgos Kalogeropoulos, Jun 30 2021 *)
  • PARI
    for(k=3,200,my(f=fibonacci(k)^2,fi=fromdigits(Vecrev(digits(f))));if(isprime(fi),print1(fi,", "))) \\ Hugo Pfoertner, Jun 30 2021
    
  • Python
    from sympy import fibonacci, isprime
    def rev(n): return int(str(n)[::-1])
    def auptok(klimit): return [t for t in (rev(fibonacci(k)**2) for k in range(3, klimit+1)) if isprime(t)]
    print(auptok(200)) # Michael S. Branicky, Jun 30 2021
Showing 1-3 of 3 results.