%I #8 Jun 13 2016 09:02:35
%S 1,2,3,6,7,8,10,15,16,24,25,29,34,35,39,40,43,47,48,50,53,57,58,60,63,
%T 67,68,70,71,72,73,76,77,78,84,85,89,94,95,99
%N Positive integers with prime number of characters in their English names, including spaces and hyphens.
%C Differs due to hyphens and spaces from A072685 Positive integers whose English names contain a prime number of letters. Primes with prime number of characters in their English names, including spaces and hyphens, are a subset of this beginning: 2, 3, 7, 29, 43, 47, 53, 67, 71, 73.
%F n such that A052360(n) is prime. n such that A052360(n) is in A000040.
%t Select[Range[99], PrimeQ[ StringLength@ IntegerName[#, "Words"]] &] (* _Giovanni Resta_, Jun 13 2016 *)
%Y Cf. A000040, A052360, A005589, A052362-A052363, A072685.
%K easy,nonn,word
%O 1,2
%A _Jonathan Vos Post_, Aug 02 2006
%E Missing a(1) and more terms from _Giovanni Resta_, Jun 13 2016
|