OFFSET
1,1
EXAMPLE
13 is congruent to 1,1,3,6 and 2, modulo 2,3,5,7 and 11 respectively. 1+1+3+6+2=13, which is a multiple of the original number, 13. So the original number, is in the sequence.
MATHEMATICA
For[n = 1, n < 1000001, n++, p = Prime[n]; m = Mod[Sum[Mod[p, Prime[i]], {i, 1, n - 1}], p]; If[m == 0, Print[p]]]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Neil Fernandez, Sep 03 2008
EXTENSIONS
a(6)-a(8) from Max Alekseyev, Feb 10 2012
STATUS
approved