|
| |
|
|
A165934
|
|
Primes from twin primes by taking the factorial of each digit and adding them up.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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] (* From Harvey P. Dale, June 21 2011 *)
|
|
|
CROSSREFS
| Cf. A001359
Sequence in context: A198626 A102367 A055322 * A110780 A087395 A199169
Adjacent sequences: A165931 A165932 A165933 * A165935 A165936 A165937
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Parthasarathy Nambi (PachaNambi(AT)yahoo.com), Oct 01 2009
|
|
|
EXTENSIONS
| More terms from Harvey P. Dale, June 21 2011.
|
| |
|
|
