%I A082607
%S A082607 1,2,5,10,17,26,37,50,65,34,13,25,41,61,85,113,145,122,101,82,293,634,
%T A082607 1105,53,109,185,74,149,250,377,205,146,97,58,29,73,137,221,181,650,541,
%U A082607 442,353,274,953,2042,3541,5450,409,173,370,289,218,157,106,337,698
%N A082607 a(0)=1; for n>0, a(n) = least k not included earlier such that k*a(n-1)-1 
               is a square.
%t A082607 l = {1}; Do[k = 1; While[MemberQ[l, k] || !IntegerQ[Sqrt[k*Last[l]-1]], 
               k++ ]; AppendTo[l, k], {n, 50}]; l - Ryan Propper (rpropper(AT)stanford.edu), 
               Jun 13 2006
%o A082607 (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
%Y A082607 Cf. A082608, A082609, A082610, A082611, A082612.
%Y A082607 Sequence in context: A100292 A078325 A059591 this_sequence A159547 A002522 
               A069987
%Y A082607 Adjacent sequences: A082604 A082605 A082606 this_sequence A082608 A082609 
               A082610
%K A082607 nonn
%O A082607 0,2
%A A082607 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 28 2003
%E A082607 Corrected and extended by Ryan Propper (rpropper(AT)stanford.edu), Jun 
               13 2006
%E A082607 Definition corrected by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 
               Nov 12 2006
%E A082607 More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), May 01 2007