login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A045725 Fibonacci numbers having initial digit '1'. 0
1, 13, 144, 1597, 10946, 17711, 121393, 196418, 1346269, 14930352, 102334155, 165580141, 1134903170, 1836311903, 12586269025, 139583862445, 1548008755920, 10610209857723, 17167680177565, 117669030460994, 190392490709135, 1304969544928657, 14472334024676221, 160500643816367088 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

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

MAPLE

with(combinat): P:=proc(n) local a; a:=fibonacci(n);

if trunc(a/10^(length(a)-1))=1 then a; fi; end:

seq(P(i), i=1..84); # Paolo P. Lava, Apr 30 2019

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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 14 18:28 EDT 2019. Contains 328022 sequences. (Running on oeis4.)