cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A069557 Squares in which the k-th significant digit either divides k or is a multiple of k. Is 1 only in case k has no other single-digit divisor.

This page as a plain text file.
%I A069557 #26 May 05 2024 19:59:59
%S A069557 1,4,9,25,49,64,81,324,361,625,961,4624,8649,7354944
%N A069557 Squares in which the k-th significant digit either divides k or is a multiple of k. Is 1 only in case k has no other single-digit divisor.
%C A069557 If the smallest prime divisor of n is > 7 only in such case the n-th digit is 1.
%C A069557 a(15) > 10^25 if it exists. - _David A. Corneth_, May 05 2024
%C A069557 The definition implies that no digit can be zero. - _N. J. A. Sloane_, May 05 2024
%H A069557 David A. Corneth, <a href="/A069557/a069557.gp.txt">PARI program</a>
%e A069557 8649 is a member in which the fourth digit is 8, a multiple of 4, the third one is 6, a multiple of 3, the second one is 4, a multiple of 2 and the least significant digit is 9.
%t A069557 okQ[n_]:=Module[{idn=IntegerDigits[n]}, Count[idn,0]==0 && And@@Divisible[idn,Range[Length[idn],1,-1]]]; Select[Range[500]^2, okQ]  (* _Harvey P. Dale_, Dec 20 2010 *)
%o A069557 (PARI) \\ See PARI link
%Y A069557 Cf. A052041, A069556, A069560.
%K A069557 base,hard,more,nonn
%O A069557 1,2
%A A069557 _Amarnath Murthy_, Mar 22 2002
%E A069557 More terms from _Sascha Kurz_, Mar 23 2002
%E A069557 Offset corrected and a(14) from _Sean A. Irvine_, May 04 2024