|
%I #22 Mar 12 2015 17:58:35
%S 541,919,1788,6355,16257,17799,20411,24347,28837,36485,40784,43450,
%T 45136,45196,51973,54453,54833,57128,57969,63692,67188,67952,69931,
%U 74765,76259,78102,78196,78826,81070,81726,87123,87362,91636,91932
%N Numbers n such that the last 9 decimal digits of the n-th Fibonacci number is pandigital 1-9.
%C Since the Fibonacci sequence mod 10^9 is periodic with period 1500000000, there is some positive M such that this sequence satisfies a(n+M) = a(n) + 1500000000. - _Robert Israel_, Jan 18 2015
%D Clifford A. Pickover, "Wonders of Numbers".
%H Norman Morton and Michael Satteson, <a href="/A112371/b112371.txt">Table of n, a(n) for n = 1..10000</a>, (first 150 terms from Norman Morton)
%e The 541st Fibonacci number is:
%e 51621 23292 73937 94428 28328 17223 02417 68441 62155 65352
%e 08137 22196 49050 89439 99028 11978 84249 30258 98332 77779
%e 69788 39725 641
%e which is pandigital 1-9 in its last 9 digits.
%p f:= proc(n) option remember; f(n-1)+f(n-2) mod 10^9 end proc:
%p f(0):= 0: f(1):= 1:
%p filter:= n -> convert(convert(f(n),base,10),set)={$1..9};
%p select(filter, [$1..10^5]); # _Robert Israel_, Jan 18 2015
%o In J (www.jsoftware.com):
%o f=: 3 : '{."(1) 1e9&|@(+/\)@|.^:(<y.) 0 1'
%o I. (<'123456789')= /:~&.> ":&.> f n
%Y Cf. A000045, A112516.
%K nonn,base
%O 1,1
%A _Roger Hui_, Dec 22 2005
|
