Search: a290945 -id:a290945
|
|
A293622
|
|
Fermat pseudoprimes to base 2 that are triangular.
|
|
+10
6
|
|
|
561, 2701, 4371, 8911, 10585, 18721, 33153, 41041, 49141, 93961, 104653, 115921, 157641, 226801, 289941, 314821, 334153, 534061, 665281, 721801, 831405, 873181, 915981, 1004653, 1373653, 1537381, 1755001, 1815465, 1987021, 2035153, 2233441, 2284453, 3059101
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Rotkiewicz proved that this sequence is infinite.
Supersequence of A290945 (triangular Carmichael numbers).
The corresponding indices of the triangular numbers are 33, 73, 93, 133, 145, 193, 257, 286, 313, 433, 457, 481, 561, 673, 761, 793, 817, ...
|
|
LINKS
|
|
|
EXAMPLE
|
2701 = 73 * 74 / 2 = 37 * 73 is in the sequence since it is triangular and composite, and 2^2700 == 1 (mod 2701).
|
|
MATHEMATICA
|
t[n_]:=n(n+1)/2; Select[t[Range[3, 10^4]], PowerMod[2, (# - 1), # ] == 1 &]
|
|
PROG
|
(PARI) forcomposite(c=1, 31*10^5, if(Mod(2, c)^(c-1)==1 && ispolygonal(c, 3), print1(c, ", "))) \\ Felix Fröhlich, Oct 14 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|
|
A290947
|
|
Primes p1 > 3, such that p2 = 3p1-2 and p3 = (p1*p2+1)/2 are also primes, so p1*p2*p3 is a triangular 3-Carmichael number.
|
|
+10
2
|
|
|
7, 13, 37, 43, 61, 193, 211, 271, 307, 331, 601, 673, 727, 757, 823, 1063, 1297, 1447, 1597, 1621, 1657, 1693, 2113, 2281, 2347, 2437, 2503, 3001, 3067, 3271, 3733, 4093, 4201, 4957, 5581, 6073, 6607, 7321, 7333, 7723, 7867, 8287, 8581, 8647, 9643, 10243
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The primes are of the form p1=(6k+1), p2=(18k+1), and p3=(54k^2+12k+1), with k = 1, 2, 6, 7, 10, 32, 35, 45, 51, 55, 100, ...
The generated triangular 3-Carmichael numbers are: 8911, 115921, 8134561, 14913991, 60957361, 6200691841, 8863329511, 24151953871, 39799655911, 53799052231, 585796503601, ...
|
|
LINKS
|
|
|
EXAMPLE
|
p1 = 7 is in the sequence since with p2 = 3*7-2 = 19 and p3 = (7*19+1)/2 = 67 they are all primes. 7*19*67 = 8911 is a triangular 3-Carmichael number.
|
|
MATHEMATICA
|
seq = {}; Do[p1 = 6 k + 1; p2 = 3 p1 - 2; p3 = (p1*p2 + 1)/2;
If[AllTrue[{p1, p2, p3}, PrimeQ], AppendTo[seq, p1]], {k, 1,
2000}]; seq
|
|
PROG
|
(PARI) list(lim)=my(v=List()); forprime(p=7, lim, if(isprime(3*p-2) && isprime((p*(3*p-2)+1)/2), listput(v, p))); Vec(v) \\ Charles R Greathouse IV, Aug 14 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
Search completed in 0.005 seconds
|