OFFSET
0,1
COMMENTS
LINKS
M. F. Hasler, Table of n, a(n) for n = 0..10000
Peter Luschny, Hopping for primes, SeqFan list, Dec 13 2019.
MATHEMATICA
Array[If[# == 3, 0, Block[{m = #}, While[! PrimeQ[m (m + 1)/2 - # (# - 3)/2], m++]; m]] &, 72, 0] (* Michael De Vlieger, Dec 16 2019 *)
PROG
(PARI) apply( {A330502(n, p=n)=if(n!=3, while(!isprime(p+=n), n++); n)}, [0..199])
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, following an idea by Peter Luschny, Dec 16 2019
STATUS
approved