A349898 Numbers that appear in A349194.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 27, 28, 30, 32, 33, 35, 36, 40, 42, 44, 45, 48, 49, 50, 52, 54, 55, 56, 60, 63, 64, 65, 66, 70, 72, 75, 77, 78, 80, 81, 84, 88, 90, 91, 96, 98, 99, 100, 104, 105, 108, 110, 112, 117, 120

Offset

1,2

Links

Table of n, a(n) for n=1..65.

Prog

(PARI) is(n)=if(n<11, return(n>0)); my(v=apply(k->[k, k], select(k->n%k==0, [2..10]))); while(#v, my(u=List()); for(i=1, #v, my(sd=v[i][1], a=v[i][2]); for(k=0, 9, my(nsd=sd+k, t=nsd*a); if(n%t==0, if(n==t, return(1)); listput(u, [nsd, t])))); v=Set(u)); 0

Crossrefs

Cf. A349194, A349899.

Sequence in context: A070331 A080672 A056757 * A225737 A357315 A079333

Adjacent sequences: A349895 A349896 A349897 * A349899 A349900 A349901

Keyword

base,nonn

Author

Charles R Greathouse IV, Dec 04 2021

Status

approved