OFFSET
1,1
COMMENTS
Subsequence of A028839.
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..10000
EXAMPLE
178 is in the sequence because 178 = 2*89 (semiprime) and 1+7+8 = 16 (square).
187 is in the sequence because 187 = 11*17 (semiprime) and 1+8+7 = 16 (square).
MAPLE
select(n -> numtheory:-bigomega(n)=2 and issqr(convert(convert(n, base, 10), `+`)),
[$1..3000]); # Robert Israel, Jul 09 2014
MATHEMATICA
Select[Range[3000], PrimeOmega[#] == 2 && IntegerQ[Sqrt[Apply [Plus, IntegerDigits[#]]]] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
K. D. Bajpai, Jul 07 2014
STATUS
approved