|
|
A104946
|
|
Primes from merging of 3 successive digits in decimal expansion of the Champernowne Constant.
|
|
1
|
|
|
101, 131, 151, 617, 181, 223, 829, 293, 313, 233, 353, 373, 383, 839, 647, 859, 263, 727, 757, 677, 787, 283, 919, 929, 293, 991, 101, 103, 107, 109, 911, 101, 211, 113, 131, 311, 151, 181, 811, 191, 211, 241, 251, 127, 271, 281, 131, 311, 113, 331, 313
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Select[FromDigits/@Partition[Flatten[IntegerDigits/@Range[200]], 3, 1], PrimeQ], IntegerLength[#] == 3&] (* Vincenzo Librandi, Apr 24 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Andrew G. West (WestA(AT)wlu.edu), Mar 29 2005
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|