OFFSET
1,1
COMMENTS
EXAMPLE
E. g., t(181)=171 (see A000217) and 181-171=10 is triangular number. Therefore p=181 is in the sequence
MAPLE
Contribution from R. J. Mathar, Oct 25 2010: (Start)
A057944 := proc(n) for i from 0 do if i*(i+1)/2 > n then return (i-1)*i /2 ; end if; end do: end proc:
isA000217 := proc(n) issqr(8*n+1) ; end proc:
isA145032 := proc(p) if isprime(p) then tres := p-A057944(p) ; isA000217(tres) ; else false; end if; end proc:
for n from 1 to 400 do p := ithprime(n) ; if isA145032(p) then printf("%d, ", p) ; end if; end do: (End)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Sep 30 2008
EXTENSIONS
More terms from R. J. Mathar, Oct 25 2010
STATUS
approved