|
|
A104947
|
|
Primes from merging of 4 successive digits in decimal expansion of the Champernowne Constant.
|
|
1
|
|
|
4567, 1213, 2131, 8293, 2333, 3343, 3637, 6373, 4243, 5051, 5657, 6263, 6869, 7879, 8081, 9091, 9293, 2939, 9697, 1021, 1031, 1051, 1061, 1091, 2113, 1151, 1511, 1171, 1181, 1811, 1201, 1231, 1291, 1301, 1321, 3313, 3413, 1361, 3613, 1381, 2143, 1451
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Select[FromDigits/@Partition[Flatten[IntegerDigits/@Range[200]], 4, 1], PrimeQ], IntegerLength[#] == 4&] (* Vincenzo Librandi, Apr 24 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|