|
%I #9 Nov 18 2022 15:47:53
%S 2,3,5,13,31,43,89,233,601,773,1481,1579,1597,1759,5179,5197,5791,
%T 7159,7591,7951,9157,11177,11717,17117,25057,25867,28657,40169,40961,
%U 41609,46091,46901,50527,52057,55207,56827,60149,61409,64019,64091,64109
%N Primes that are anagrams of Fibonacci numbers.
%C 601 is prime and is an anagram of F(15)= 610;
%C 773 is prime and is an anagram of F(14)= 377.
%H Chai Wah Wu, <a href="/A162390/b162390.txt">Table of n, a(n) for n = 1..9710</a>
%t paf[n_]:=Module[{idn=IntegerDigits[n]},Select[FromDigits/@Permutations[ idn],IntegerLength[ #] == Length[ idn]&]]; Select[Flatten[ af/@ Fibonacci[ Range[30]]],PrimeQ]//Sort (* _Harvey P. Dale_, Nov 18 2022 *)
%K nonn,base
%O 1,1
%A _Claudio Meller_, Jul 02 2009
|
