A217035 Generalized cuban primes (A007645) which are also Class 1- (or Pierpont) primes (A005109).
3, 7, 13, 19, 37, 73, 97, 109, 163, 193, 433, 487, 577, 769, 1153, 1297, 1459, 2593, 2917, 3457, 3889, 10369, 12289, 17497, 18433, 39367, 52489, 139969, 147457, 209953, 331777, 472393, 629857, 746497, 786433, 839809, 995329, 1179649, 1492993, 1769473
Offset: 1
Links
- Ray Chandler, Table of n, a(n) for n = 1..8379 (terms < 10^1000)
Programs
-
Mathematica
nn = 100000; t1 = Join[{3}, Select[Prime[Range[nn]], MemberQ[{1}, Mod[#, 3]] &]]; t2 = Select[Prime[Range[nn]], Max @@ First /@ FactorInteger[# - 1] < 5 &]; Intersection[t1, t2] (* T. D. Noe, Sep 26 2012 *)
Comments