A325448 - OEIS

%I #12 Sep 08 2022 08:46:24

%S 1,13,21,144,610,1597,4181,10946,17711,121393,196418,317811,514229,

%T 1346269,2178309,14930352,24157817,39088169,102334155,165580141,

%U 267914296,701408733,1134903170,1836311903,2971215073,12586269025,20365011074,32951280099

%N Fibonacci numbers whose decimal expansion contains the digit 1.

%C Complement of A177195.

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

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

%o (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))

%o /* Print initial 30 terms as follows */

%o terms(30) \\ _Felix Fröhlich_, May 04 2019

%Y Cf. A000045, A177195.

%K nonn,base

%O 1,2

%A _Vincenzo Librandi_, May 03 2019