1,1

For primes of the form x^2+ny^2 see the following entries (x=0 means separate sequences for x posistive and x non-negative):

n A-number

1 A002313

2 A033200 x=0 A033203

3 A002476 x=0 A007645

4 A002144

5 A033205

6 A033199

7 A033207

8 A007519

9 A068228

10 A033201

11 A106279 x=0 A033209

12 A068228 (*=9)

13 A033210

14 A033211

15 A033212

16 A007519 (*=8)

17 A033213

18 A106950

19 A033214

20 A047650

21 A033215

22 A033216

23 A033217

24 A107008

25 A033205 (*=5)

26 A033218

27 A014752

28 A107134

29 A033219

30 A033220

31 A033221

32 A105389

33 A033222

34 A033223

35 A033224

36 A107142

37 A033225

38 A033226

39 A033227

40 A107145

41 A033228

42 A033229

43 A033230

44 A107150

45 A107152

46 A033231

47 A033232

48 A107008 (*=24)

49 A107155

50 A107157

51 A033233

52 A107160

53 A033234

54 A107162

55 A033235

56 A107164

57 A033236

58 A033237

59 A033238

60 A107152 (*=45)

61 A033239

62 A033240

63 A106930

64 A014754

65 A033241

66 A033242

67 A033243

68 A107176

69 A033244

70 A033245

71 A033246

72 A107008 (*=24)

73 A033247

74 A033248

75 A107184

76 A107186

77 A033249

78 A033250

79 A033251

80 A107192

81 A107193

82 A033252

83 A033253

84 A107198

85 A033254

86 A033255

87 A033256

88 A107202

89 A033257

90 A107206

91 A033258

92 A107209

93 A033202

94 A033204

95 A033206

96 A107213

97 A033208

98 A107215

99 A107217

100 A107219

a = {}; w = 101; Do[Do[If[PrimeQ[n^2 + w*m^2], AppendTo[a, n^2 + w*m^2]], {n, 1, 700}], {m, 1, 200}]; Union[a]

Adjacent sequences: A139486 A139487 A139488 this_sequence A139490 A139491 A139492

Sequence in context: A106280 A139510 A107164 this_sequence A136080 A094488 A138348

nonn,new

Artur Jasinski (grafix(AT)csl.pl), Apr 24 2008