login
Prime numbers where the last digit is the sum of all the previous digits.
1

%I #8 Apr 03 2023 10:36:11

%S 11,101,167,257,347,617,1427,1607,2237,2417,3137,3407,4127,4217,10067,

%T 10247,10337,10427,10607,11057,12227,13037,13127,13217,14207,15017,

%U 15107,16007,20147,20327,20507,21227,21317,21407,22037,22307,23027

%N Prime numbers where the last digit is the sum of all the previous digits.

%H R. L. Shepherd, <a href="/A156617/b156617.txt">Table of n, a(n) for n=1..1000</a>

%H Chris Caldwell, <a href="https://t5k.org/lists/small/1000.txt">The First 1000 Primes</a>

%e 3137 is a prime number where the last digit is the sum of all the previous digits.

%t Select[Prime[Range[3000]],Last[IntegerDigits[#]]==Total[ Most[ IntegerDigits[ #]]]&] (* _Harvey P. Dale_, Jan 30 2014 *)

%Y Cf. A000040, A156307

%K nonn,base

%O 1,1

%A _Parthasarathy Nambi_, Feb 11 2009

%E Extended and 11 added by _Rick L. Shepherd_, Feb 12 2009