A162390 - OEIS

%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