This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A182404 #34 Oct 16 2024 09:24:39
%S A182404 11,12,14,16,21,23,25,32,38,41,49,52,56,58,61,65,83,85,94,101,102,104,
%T A182404 106,110,111,113,119,120,131,133,137,140,146,160,164,166,173,179,191,
%U A182404 197,199,201,203,205,210,223,229,230,232,250,289,292,298,302,308
%N A182404 Numbers whose digit sum as well as sum of the squares of the digits is a prime.
%F A182404 Intersection of A028834 and A108662. - _Jason Yuen_, Oct 15 2024
%e A182404 25 is here because 2 + 5 = 7 and 2*2 + 5*5 = 29 both are prime.
%t A182404 fQ[n_] := Module[{d = IntegerDigits[n]}, PrimeQ[Total[d]] && PrimeQ[Total[d^2]]]; Select[Range[500], fQ] (* _T. D. Noe_, May 09 2012 *)
%Y A182404 Cf. A028834, A108662.
%K A182404 nonn,base
%O A182404 1,1
%A A182404 _Sumit Maheshwari_, May 09 2010
%E A182404 Incorrect comment removed by _Jason Yuen_, Oct 15 2024