A102174 Iccanobirt semiprime indices (4 of 15): Indices of semiprime numbers in A102114.
5, 11, 18, 33, 35, 37, 43, 44, 56, 63, 93, 148, 175, 176, 204, 288, 317
Offset: 1
Programs
-
Mathematica
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 *)
Extensions
a(15) from Robert Price, Nov 08 2018
Offset changed to 1 and a(16)-a(17) from Jinyuan Wang, Aug 10 2021