A325448 Fibonacci numbers whose decimal expansion contains the digit 1.

1, 13, 21, 144, 610, 1597, 4181, 10946, 17711, 121393, 196418, 317811, 514229, 1346269, 2178309, 14930352, 24157817, 39088169, 102334155, 165580141, 267914296, 701408733, 1134903170, 1836311903, 2971215073, 12586269025, 20365011074, 32951280099

Offset: 1

Author

Vincenzo Librandi, May 03 2019

Keywords

• nonn
• base

Comments

Complement of A177195.

Crossrefs

Cf. A000045, A177195.

Programs

Magma

[ Fibonacci(n): n in [2..55] |  1 in Intseq(Fibonacci(n)) ];

Mathematica

Rest[Select[Fibonacci@Range@50, MemberQ[IntegerDigits[#], 1] &]]

PARI

terms(n) = my(i=0); for(k=2, oo, my(fib=fibonacci(k), fibd=digits(fib)); if(setintersect(vecsort(fibd), vector(#fibd, x, 1)), print1(fib, ", "); i++); if(i>=n, break))
/* Print initial 30 terms as follows */
terms(30) \\ Felix Fröhlich, May 04 2019