|
|
A243530
|
|
Prime numbers containing the string 14.
|
|
2
|
|
|
149, 1409, 1423, 1427, 1429, 1433, 1439, 1447, 1451, 1453, 1459, 1471, 1481, 1483, 1487, 1489, 1493, 1499, 2141, 2143, 5147, 6143, 8147, 10141, 11149, 11411, 11423, 11437, 11443, 11447, 11467, 11471, 11483, 11489, 11491, 11497, 12143, 12149, 13147, 14009, 14011, 14029
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Prime[Range[2000]], !StringFreeQ[ToString[#], "14" ] &]
|
|
PROG
|
(PARI) contains(n, k)=my(N=digits(n), K=digits(k)); for(i=0, #N-#K, for(j=1, #K, if(N[i+j]!=K[j], next(2))); return(1)); 0
|
|
CROSSREFS
|
Cf. similar sequences listed in A243529.
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|