A045725 Fibonacci numbers having initial digit '1'.

1, 13, 144, 1597, 10946, 17711, 121393, 196418, 1346269, 14930352, 102334155, 165580141, 1134903170, 1836311903, 12586269025, 139583862445, 1548008755920, 10610209857723, 17167680177565, 117669030460994, 190392490709135, 1304969544928657, 14472334024676221, 160500643816367088

Offset

1,2

Links

Table of n, a(n) for n=1..24.

Mathematica

Select[Fibonacci[Range[2, 100]], IntegerDigits[#, 10][[1]] == 1 &] (* T. D. Noe, Nov 01 2006 *)

Prog

(PARI) select(x->(digits(x)[1] == 1), vector(85, n, fibonacci(n+1))) \\ Michel Marcus, Jan 30 2019
(Magma) [Fibonacci(n): n in [2..100] | Intseq(Fibonacci(n))[#Intseq(Fibonacci(n))] eq 1]; // Vincenzo Librandi, Jan 30 2019
(Scala) def fibonacci(n: BigInt): BigInt = {
  val zero = BigInt(0)
  def fibTail(n: BigInt, a: BigInt, b: BigInt): BigInt = n match {
    case `zero` => a
    case _ => fibTail(n - 1, b, a + b)
  }
  fibTail(n, 0, 1)
} // Tail recursion by Dario Carrrasquel
((2 to 100).map(fibonacci(_))).filter(_.toString.startsWith("1")) // Alonso del Arte, Apr 22 2019

Crossrefs

Cf. A105501.

Intersection of A000045 and A131835.

Sequence in context: A234601 A164825 A098298 * A072351 A134489 A064525

Adjacent sequences: A045722 A045723 A045724 * A045726 A045727 A045728

Keyword

nonn,base

Author

Jeff Burch

Extensions

Corrected by T. D. Noe, Nov 01 2006

Status

approved