A168483 Terms of A123239 which are primes in Z(sqrt(5)).

2, 3, 13, 37, 67, 73, 83, 103, 107, 157, 193, 227, 277, 307, 313, 347, 367, 373, 397, 433, 443, 467, 523, 547, 563, 577, 587, 613, 673, 683, 733, 757, 787, 827, 853, 877, 883, 947, 967, 997, 1093, 1117, 1163, 1187, 1213, 1223, 1237, 1283, 1297

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A003631, A123239, A168367.

Sequence in context: A174742 A215279 A082539 * A100424 A347537 A289549

Adjacent sequences: A168480 A168481 A168482 * A168484 A168485 A168486

Keyword

nonn

Author

A.K. Devaraj, Nov 26 2009

Extensions

Corrected and extended by Ray Chandler, Jul 21 2011

Status

approved