OFFSET
1,1
COMMENTS
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
MAPLE
q:= n-> is(add(ithprime(n+i)*binomial(3, i)*(-1)^i, i=0..3)=0):
select(q, [$1..500])[]; # Alois P. Heinz, Oct 15 2024
PROG
(PARI) { n=0; for (m=1, 10^9, if (prime(m) + 3*prime(m + 2) == 3*prime(m + 1) + prime(m + 3), write("b064149.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Sep 09 2009
(PARI) my(D(v)=v[^1]-v[^-1]); select(t->!t, D(D(D(primes(444)))), 1) \\ M. F. Hasler, Oct 15 2024
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Sep 11 2001
EXTENSIONS
Definition edited by M. F. Hasler, Oct 15 2024
STATUS
approved