A101766 Iccanobif semiprime indices: Indices of semiprime numbers in A014260.
8, 16, 18, 21, 26, 38, 42, 44, 49, 54, 55, 57, 61, 67, 77, 78, 115, 123, 134, 145, 151, 154, 202, 218, 249, 286, 349, 403, 498, 539, 647
Offset: 1
Links
- Lucas A. Brown, A101766.py.
Programs
-
Mathematica
nxt[{a_,b_}]:={b,IntegerReverse[a]+b}; Flatten[Position[NestList[nxt,{0,1},600][[All,1]],?(PrimeOmega[#]==2&)]]-1 (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale, Jul 04 2018 *)
Extensions
Offset changed to 1 by Jinyuan Wang, Aug 01 2021
a(31) from Lucas A. Brown, Nov 12 2022
Comments