%I #10 Jul 01 2021 03:54:51
%S 8,14,20,26,59,62,122,123,143,149,167,206,239,257,293,302,341,347,383,
%T 419,422,491,509,563,617,653,743,761,941,1049,1133,1193,1202,1203,
%U 1229,1283,1313,1319,1331,1373,1409,1427,1481,1553,1571,1607
%N Numbers k such that A086793(k) is 1.
%C Prime numbers in the sequence are also primes with digit sum = 14 (A106756).  _Zak Seidov_, May 21 2006
%t ss={8,14};Do[If[15==Total@Flatten[IntegerDigits/@Divisors[n]],AppendTo[ss,n]],{n,20,2000}];ss (* _Zak Seidov_, May 21 2006 *)
%Y Cf. A034690, A086793, A106756.
%K nonn,base
%O 1,1
%A _Zak Seidov_, May 16 2006
