OFFSET
1,1
LINKS
Christian N. K. Anderson, Table of n, a(n) for n = 1..10000
EXAMPLE
135 is in the sequence because 1^2+3^2+5^2=35, and 35=7*5 is a semiprime.
MATHEMATICA
Select[Range[200], PrimeOmega[Total[IntegerDigits[#]^2]]==2&] (* Harvey P. Dale, Nov 26 2022 *)
PROG
(R) sumodsq<-function(i) sum(as.numeric(strsplit(as.character(i), "")[[1]])^2)
sodsq.sp=c(); i=-1
while(length(sodsq.sp)<10000) if(sum(factorize(sumodsq((i=i+1)))[[1]][, 2])==2) sodsq.sp=c(sodsq.sp, i)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Kevin L. Schwartz and Christian N. K. Anderson, Mar 25 2013
STATUS
approved