login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A257974 Prime numbers that are not the sum of one or more consecutive triangular numbers. 2
2, 5, 7, 11, 13, 17, 23, 29, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 89, 97, 101, 103, 107, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 211, 223, 227, 229, 233, 239, 241, 257, 263, 269, 271, 277, 281, 283 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Subsequence of primes of A050941. - Michel Marcus, Dec 14 2015

Prime numbers that are not the difference of two tetrahedral numbers (A000292). - Franklin T. Adams-Watters, Dec 16 2015

LINKS

Chai Wah Wu, Table of n, a(n) for n = 1..10000

EXAMPLE

From Michael De Vlieger, Nov 06 2015: (Start)

3 is a triangular number thus is not a term.

The triangular numbers <= 7 are {1, 3, 6}. None of these are 7. 7 is not found among the sums of adjacent pairs of terms, i.e., {{1, 3}, {3, 6}} = {4, 9}. The sum of all numbers {1, 3, 6} = 10. Thus 7 is a term.

The triangular numbers <= 19 are {1, 3, 6, 10, 15}. 19 is not a triangular number. 19 is not found among sums of pairs of adjacent terms {4, 9, 16, 25} nor among those of quartets of adjacent terms {20, 34}, but is found among sums of triples of adjacent terms {10, 19, 31}. Thus 19 is not a term. (End)

MAPLE

isA257974 := proc(n)

    if isprime(n) then

        return not isA034706(n) ;

    else

        false ;

    end if;

end proc:

for n from 0 to 400 do

    if isA257974(n) then

        printf("%d, ", n) ;

    end if;

end do: # R. J. Mathar, Dec 14 2015

MATHEMATICA

t = Array[Binomial[# + 1, 2] &, {10^4}]; fQ[n_] := Block[{s}, s = TakeWhile[t, # <= n &]; AnyTrue[Flatten[Total /@ Partition[s, #, 1] & /@ Range[Length@ s - 1]], # == n &]]; Select[Prime@ Range@ 120, ! fQ@ # &] (* Michael De Vlieger, Nov 06 2015, Version 10 *)

CROSSREFS

Cf. A050941, A000217, A000292, A125602, A269414.

Sequence in context: A228200 A245063 A168033 * A323782 A020591 A197188

Adjacent sequences:  A257971 A257972 A257973 * A257975 A257976 A257977

KEYWORD

nonn

AUTHOR

Vicente Izquierdo Gomez, Nov 05 2015

EXTENSIONS

More terms from Michael De Vlieger, Nov 06 2015

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 17 12:41 EDT 2019. Contains 327131 sequences. (Running on oeis4.)