%I #18 Aug 11 2021 01:25:36
%S 5,11,18,33,35,37,43,44,56,63,93,148,175,176,204,288,317
%N Iccanobirt semiprime indices (4 of 15): Indices of semiprime numbers in A102114.
%F A102114(a(n)) = A102194(n).
%t nxt[{a_,b_,c_}]:={b,c,IntegerReverse[c]+b+a};Flatten[Position[ NestList[ nxt,{0,0,1},200][[All,1]],_?(PrimeOmega[#]==2&)]]-1 (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 16 2018 *)
%Y Cf. A001358, A102114, A102171-A102185, A102194.
%K nonn,more,less,base
%O 1,1
%A _Jonathan Vos Post_ and _Ray Chandler_, Dec 31 2004
%E a(15) from _Robert Price_, Nov 08 2018
%E Offset changed to 1 and a(16)-a(17) from _Jinyuan Wang_, Aug 10 2021
|