A168454 Terms of A123239 which are primes in Z(sqrt(2)).

3, 11, 13, 37, 59, 61, 67, 83, 107, 109, 131, 157, 179, 181, 227, 229, 251, 277, 307, 347, 349, 373, 397, 419, 421, 443, 467, 491, 523, 541, 547, 563, 587, 613, 619, 659, 661, 683, 709, 733, 757, 787, 827, 829, 853, 877, 883, 947, 971, 997, 1019

Offset

1,1

Links

Table of n, a(n) for n=1..51.

Mathematica

MangammalQ[p_] := Block[{k = 3}, While[k > 2, k = Mod[3 k, p]]; k != 2];
A168454 = Select[Prime[Range[185]], MangammalQ[#] && MemberQ[{3, 5}, Mod[#, 8]] &] (* Ray Chandler, Jul 21 2011 *)

Crossrefs

Cf. A003629, A123239, A168367.

Sequence in context: A018450 A302304 A119145 * A181086 A274343 A113049

Adjacent sequences: A168451 A168452 A168453 * A168455 A168456 A168457

Keyword

nonn

Author

A.K. Devaraj, Nov 26 2009

Extensions

Extended by Ray Chandler, Jul 21 2011

Status

approved