A134069 Primes in A038399.
11, 211, 853211
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Fibonacci Number
- Eric Weisstein's World of Mathematics, Smarandache Sequences
Crossrefs
Programs
-
Maple
count:= 0: A038399[1]:= 1: for n from 2 to 100 do A038399[n]:= combinat:-fibonacci(n)*10^(1+ilog10(A038399[n-1]))+A038399[n-1]; if isprime(A038399[n]) then count:= count+1; A[count]:= A038399[n] fi od: seq(A[i],i=1..count); # Robert Israel, Sep 14 2016
-
Mathematica
Module[{nn=10,bif},bif=Fibonacci[Range[nn]];Select[Table[FromDigits[ Flatten[ IntegerDigits/@Reverse[Take[bif,n]]]],{n,nn}],PrimeQ]] (* Harvey P. Dale, Sep 27 2019 *)
Comments