

A113762


Numbers n with nonzero digits in their decimal representation such that when all numbers formed by inserting the exponentiation symbol between any two digits are added up, the sum is prime.


1



21, 31, 51, 71, 121, 142, 161, 162, 164, 181, 211, 237, 326, 343, 412, 416, 456, 491, 494, 612, 616, 726, 817, 929, 1226, 1228, 1427, 1513, 1622, 1776, 1824, 1828, 1911, 1915, 1975, 2127, 2188, 3716, 5265, 6276, 6321, 6491, 6852, 7739, 14423, 14487
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

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


EXAMPLE

a(6) = 142 because 1^42+14^2 = 197, which is prime.


MATHEMATICA

lst = {}; Do[ If[ Min@ IntegerDigits@n > 0, a=0; p=10; While[(w = Floor[n/p]) > 0, a += w^ Mod[n, p]; p*=10]; If[PrimeQ[a], Print[{n, a}]; AppendTo[lst, n]]], {n, 11, 9999}]; lst


CROSSREFS

Cf. A117388.
Sequence in context: A034101 A034111 A077687 * A032585 A138822 A104297
Adjacent sequences: A113759 A113760 A113761 * A113763 A113764 A113765


KEYWORD

base,nonn


AUTHOR

Ray G. Opao, Jan 18 2006


EXTENSIONS

More terms from Giovanni Resta, Jan 19 2006
More terms from Robert G. Wilson v, Apr 27 2006


STATUS

approved



