This site is supported by donations to The OEIS Foundation.

 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 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 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.

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