A165934 Primes from twin primes by taking the factorial of each digit and adding them up.

11, 80651, 67, 251, 368881, 80651, 23, 1451, 251, 23, 10093, 61, 362927, 363269, 10093, 372973, 263, 10111, 59, 362941, 107, 363773, 10139, 107, 364513, 10139, 725827, 263, 365173, 364513, 12967, 737287, 10093, 10111, 374041, 776401, 162727, 725827, 725827, 368647, 10093, 263, 363269, 257, 363157, 80657, 443543, 73, 444971, 727211, 735853, 735853, 19, 29, 109, 363271, 20173, 17, 257, 10099

Offset

1,1

Links

Table of n, a(n) for n=1..60.

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

Cf. A001359

Sequence in context: A102367 A055322 A348644 * A110780 A087395 A199169

Adjacent sequences: A165931 A165932 A165933 * A165935 A165936 A165937

Keyword

base,nonn

Author

Parthasarathy Nambi, Oct 01 2009

Extensions

More terms from Harvey P. Dale, Jun 21 2011

Status

approved