|
| |
|
|
A078699
|
|
Primes p such that p^2-1 is a triangular number.
|
|
0
| |
|
|
2, 11, 23, 373, 12671, 901273, 19472752251611, 53072032161200090602953513048447623, 5027153581127740201460650182713355379768873, 11604855412241025458500993236724193227031777965785837784548351709747881343573
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Equivalently, primes in A006452.
|
|
|
MATHEMATICA
| a[n_] := a[n]=If[n<4, {1, 2, 4, 11}[[n+1]], 6a[n-2]-a[n-4]]; Select[a/@Range[200], ProvablePrimeQ] (* First do <<NumberTheory`PrimeQ` *)
|
|
|
PROG
| (PARI) default(primelimit, 10^7) istri(n) = t=floor(sqrt(2*n)); if(2*n==t*(t+1), 1, 0) forprime(p=2, 5*10^6, if(istri(p^2-1), print1(p" ")))
|
|
|
CROSSREFS
| Cf. A000217, A006452.
Sequence in context: A106974 A198277 A115374 * A042347 A041803 A009189
Adjacent sequences: A078696 A078697 A078698 * A078700 A078701 A078702
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jason Earls (zevi_35711(AT)yahoo.com), Dec 18 2002
|
|
|
EXTENSIONS
| Edited by Dean Hickerson (dean.hickerson(AT)yahoo.com), Dec 19 2002
|
| |
|
|
