来自在线整数百科全书的问候语!http://oeis.org/ Search: id:a179913 Showing 1-1 of 1 %I A179913 %S A179913 1237,1319,1367,1523,1571,1723,1753,1979,1997,2131,2179,2239,2273, %T A179913 2293,2297,2357,2377,2383,2389,2417,2437,2473,2531,2579,2593,2617, %U A179913 2711,2731,2753,2797,3119,3167,3257,3271,3313,3371,3547,3571,3593,3617,3671,3677 %N A179913 Primes with five embedded primes. %C A179913 A079066(a(n)) = 5. %t A179913 f[n_] := Block[ {id = IntegerDigits@n}, len = Length@ id - 1; Count[ PrimeQ@ Union[ FromDigits@# & /@ Flatten[ Table[ Partition[ id, k, 1], {k, len}], 1]], True] + 1]; Select[ Prime@ Range@ 510, f@# == 6 &] %o A179913 (Haskell) %o A179913 import Data.List (elemIndices) %o A179913 a179913 n = a179913_list !(N-1)%AO A17913A179131List= MAP(A000 000)。A17913-奥雷哈德ZunkeleLe],7月19日2011‰y A17913,A03999,A079397,A033 74,A032644,A179909-A17919,A033 74,K %A1799 13基数,非N%O O A1799 13 1,1 %,A1799 13 G. Wilson罗伯特VY,AUG 01 2010‰内容可在OEIS最终用户许可协议:HTTP:/OEIS.Org/许可证下获得。(+ 1)$元素索引5 A079066