%I #11 Aug 18 2020 05:39:26
%S 1,3,9,17,159,5607,15219,54651,56403,100147,120957
%N Numbers k such that k divides A109227(k); or k such that A109227(k) is a Niven number.
%C a(12) > 2*10^5, if it exists.
%e a(2) = 3 because A109227(3) = 1101 and 1101/3 = 367.
%t Select[Range[160], Divisible[FromDigits[Boole @ PrimeQ[Range[Prime[#]]]], #] &] (* _Amiram Eldar_, Aug 18 2020 *)
%Y Cf. A005349, A109227.
%K nonn,base,more
%O 1,2
%A _Jason Earls_, Jun 23 2005
%E a(6)-a(11) from _Amiram Eldar_, Aug 18 2020