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 A075177 #18 Jun 03 2025 02:55:37
%S A075177 1,2,3,4,5,9,10,13,14,15,18,19,23,24,26,30,32,33,34,36,37,40,41,43,44,
%T A075177 45,46,48,49,50,53,56,57,60,61,64,65,66,67,68,71,72,74,75,78,79,80,82,
%U A075177 86,87,89,90,91,93,102,105,106,108,109,110,111,116,117,118,121,124,128
%N A075177 Indices of additive primes - primes with prime sum-of-digits, see A046704.
%C A075177 There are 107 additive primes among first 200 primes. There are 38455 additive primes among first 100000 primes. Additive primes are in A046704.
%H A075177 Zak Seidov, <a href="/A075177/b075177.txt">Table of n, a(n) for n=1..4086, a(n)<10^4.</a>
%F A075177 a(n) = PrimePi(A046704(n)).
%F A075177 A000040(a(n)) = A046704(n).
%e A075177 Prime(10) = 29 is an additive prime because 2+9 = 11 is prime.
%t A075177 Map[PrimePi[ # ]&, Select[Prime[Range[200]], PrimeQ[Apply[ Plus, IntegerDigits[ # ]]]&]]
%t A075177 Flatten[Position[Prime[Range[150]],_?(PrimeQ[Total[IntegerDigits[#]]]&),{1},Heads->False]] (* _Harvey P. Dale_, May 29 2013 *)
%o A075177 (Haskell)
%o A075177 import Data.List (elemIndices)
%o A075177 a075177 n = a075177_list !! (n-1)
%o A075177 a075177_list = map (+ 1) $
%o A075177 elemIndices 1 $ map (a010051 . a007953) a000040_list
%o A075177 -- _Reinhard Zumkeller_, Nov 13 2011
%Y A075177 Cf. A046704.
%Y A075177 Cf. A007953, A010051.
%K A075177 nonn,base
%O A075177 1,2
%A A075177 _Zak Seidov_, Sep 06 2002