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 A051750 #13 Jan 06 2017 11:44:59 %S A051750 2,3,5,7,11,13,17,19,23,29,31,41,53,61,71,83,97,113,137,139,151,157, %T A051750 167,173,179,181,191,197,211,233,239,241,251,257,263,277,283,293,307, %U A051750 331,337,347,353,359,373,379,383,389,409,421,433,457,461,463,499,503 %N A051750 Primes whose cubes lack zeros. %H A051750 Giovanni Resta, <a href="/A051750/b051750.txt">Table of n, a(n) for n = 1..10000</a> %t A051750 Select[Prime[Range[100]],FreeQ[IntegerDigits[#^3],0]&] (* _Harvey P. Dale_, Jan 06 2017 *) %o A051750 (PARI) isok(n) = isprime(n) && vecmin(digits(n^3)); \\ _Michel Marcus_, Jan 06 2014 %Y A051750 Cf. A000040, A000578. %Y A051750 Cubes: A052044, A052045, A051751, A051832, A051833. Squares: A052040, A052041, A052042, A052043. %K A051750 base,nonn %O A051750 1,1 %A A051750 _G. L. Honaker, Jr._, Dec 07 1999 %E A051750 More terms from _Michel Marcus_, Jan 06 2014