| 6, 7, 13, 17, 18, 22, 25, 27, 28, 31, 37, 43, 58, 59, 67, 74, 84, 88, 94, 125, 127, 129, 136, 149, 162, 163, 174, 177, 183, 213, 217, 232, 240, 247, 267, 273, 279, 282, 295, 301, 304, 307, 321, 322, 326, 333, 337, 352, 355, 357, 365, 385, 386, 388, 389, 396, 439
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
a = {}; Do[If[(1 - (Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]]) > 0) && (1 - ( Exp[Pi Sqrt[x]] - Floor[Exp[Pi Sqrt[x]]])< 10^(-1)), AppendTo[a, x]], {x, 1, 1000}]; a
|
|
CROSSREFS
|
Cf. A035484, A127022, A127023, A127024, A127025.
Sequence in context: A069198 A069136 A047335 this_sequence A154662 A070398 A022096
Adjacent sequences: A127017 A127018 A127019 this_sequence A127021 A127022 A127023
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007
|
|
