A102195 Iccanobirt semiprimes (5 of 15): Semiprime numbers in A102115.
4, 779, 1138, 57415, 77633, 55486847, 1073911003, 3317721397, 1060433508262511, 71024113009688593314067, 11974445409544006175987023, 1076202964567631961558639609002933, 33696092853645518103687453241761538, 4617443279524324394317910914689160360213
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..19
Programs
-
Mathematica
nxt[{a_,b_,c_}]:={b,c,Total[FromDigits/@Reverse/@IntegerDigits[{a,c}]]+b};Select[NestList[nxt,{0,0,1},120][[;;,1]],PrimeOmega[#]==2&] (* Harvey P. Dale, Mar 02 2025 *)
Extensions
Offset changed to 1 and a(14) from Jinyuan Wang, Aug 12 2021