OFFSET
1,1
LINKS
Dario Alpern, Factorization using the Elliptic Curve Method
Chris Caldwell, The First 100,000 Twin Primes
EXAMPLE
11 from 101 and 103: 1! + 0! + 1! + 1! + 0! + 3! = 11; Similarly 80651 from 281 and 283; 368881 from 569 and 571.
MATHEMATICA
Select[Total[Flatten[IntegerDigits/@#]!]&/@Select[Partition[ Prime[ Range[2500]], 2, 1], Last[#]-First[#]==2&], PrimeQ] (* Harvey P. Dale, Jun 21 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Parthasarathy Nambi, Oct 01 2009
EXTENSIONS
More terms from Harvey P. Dale, Jun 21 2011
STATUS
approved