login
A171595
Primes of the form p=floor(T/6), T are triangular numbers.
2
2, 3, 7, 11, 13, 17, 31, 67, 157, 229, 379, 487, 1291, 1621, 3217, 3727, 4051, 4621, 6007, 7129, 7879, 9157, 9661, 10531, 11071, 12577, 13567, 15877, 16987, 23629, 24979, 28081, 31981, 32917, 39847, 46687, 51679, 54877, 56101, 58171, 61561
OFFSET
1,1
LINKS
EXAMPLE
Floor(15/6)=2, floor(21/6)=3, floor(45/6)=7,..
MATHEMATICA
f[n_]:=n*(n+1)/2; lst={}; Do[If[PrimeQ[p=Floor[f[n]/6]], AppendTo[lst, p]], {n, 7!}]; lst
Select[Floor[#/6]&/@Accumulate[Range[1000]], PrimeQ] (* Harvey P. Dale, Jul 23 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved