OFFSET
1,1
COMMENTS
Next term (n=867) has 2173 digits.
EXAMPLE
n=6 -> 6!+1 = 720+1=721 -> Reverse_Digits(721)=127 that is prime
MAPLE
P:=proc(i) local a, b, k, n, v; v:=array(1..10000); for n from 1 by 1 to i do a:=1; k:=n!+1; while k>0 do v[a]:=k-(trunc(k/10)*10); k:=trunc(k/10); a:=a+1; od; k:=0; for b from a-1 by -1 to 1 do k:=k+v[b]*10^(a-1-b); od; if isprime(k) then print(k); fi; od; end: P(2000);
MATHEMATICA
Select[FromDigits[Reverse[IntegerDigits[#]]]&/@(Range[150]!+1), PrimeQ] (* Harvey P. Dale, Jul 11 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Mar 02 2010
EXTENSIONS
Edited by Charles R Greathouse IV, Aug 02 2010
STATUS
approved