A168367 -id:A168367 - cp's OEIS frontend

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

A.K. Devaraj, Nov 26 2009

nonn

Cf. A003629, A123239, A168367.

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 *)

Extended by Ray Chandler, Jul 21 2011

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

Original entry on oeis.org

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

A.K. Devaraj, Nov 26 2009

nonn

Cf. A003631, A123239, A168367.

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 *)

Corrected and extended by Ray Chandler, Jul 21 2011

cp's OEIS Frontend

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

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Extensions