OFFSET
0,2
MATHEMATICA
l = {1}; Do[k = 1; While[MemberQ[l, k] || !IntegerQ[Sqrt[k*Last[l]-1]], k++ ]; AppendTo[l, k], {n, 50}]; l (* Ryan Propper, Jun 13 2006 *)
PROG
(PARI) a=[1]; print1(1", "); for(n=2, 100, k=1; f=1; while(f, if(issquare(k*a[n-1]-1), f=0; for(i=1, n-1, if(a[i]==k, f=1))); k++); a=concat(a, k-1); print1(k-1", ")) \\ Herman Jamke (hermanjamke(AT)fastmail.fm), May 01 2007
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 28 2003
EXTENSIONS
Corrected and extended by Ryan Propper, Jun 13 2006
Definition corrected by R. J. Mathar, Nov 12 2006
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), May 01 2007
STATUS
approved