A109228 - OEIS

%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